Программа с массивом:
const n=10;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=random(66)-26;
 write(a[i],'  ');
 end;
writeln;
end.
 

Пример работы программы:
-12  -13  36  9  -9  16  -13  14  -24  5  


Программа без массива:
const n=10;
var i:integer;
begin
Randomize;
for i:=1 to n do
 write(random(66)-26,'  ');
writeln;
end.

Пример работы программы:
-20  15  5  -17  32  38  -9  -19  31  13