Я бы по другому сделал, например вот так:
var
i,n:integer;
a:array [1..100] of integer;
begin
randomize;
readln(n);
for i:=1 to n do
begin
a[i]:=Random(10)-5;
write(a[i],' ');
end;
writeln;
for i:=1 to n do
begin
a[i]:=a[i]*-1;
write(a[i],' ');
end;
readln
end.
Выходные данные: