Как заполнить целочисленный массив случайными числами от -50 до 50 в Паскаль?

Предыдущий
вопрос Следующий
вопрос

const Sz = 50; // Размер массива

var 

 a: array [1..Sz] of integer;

 N: integer; // Количество элементов в массиве

 i: integer;

begin

 N := 50;

 for i:=1 to N do

  a[i] := Random(100)-50;

 writeln('Элементы массива: ');

 for i:=1 to N do

  write(a[i],' ');

end.