Сформировать массив из 10 элементов случайным образом от -50 до 50.в паскале) решается: 33

Program pr;
var a: array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
a[i]:=-50+random(50+50+1);
end.

Var a, b, n, i:integer;
s :array [1..10] of integer;
begin
read (n);{Размер массива}
for i:=1 to n do 
 begin
 s[i]:=-50+random(99);
 write (s[i],' ');
 end;
end.

P.S. Надеюсь на благодарность и лучший ответ.