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

program pr;var a: array [1..10] of integer;i:integer;beginfor i:=1 to 10 doa[i]:=-50+random(50+50+1);end.

var a, b, n, i:integer;s :array [1..10] of integer;beginread (n);{Размер массива}for i:=1 to n do  begin s[i]:=-50+random(99); write (s[i],); end;end.P.S. Надеюсь на благодарность и лучший ответ.