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

program HelloArray;

var

a: array[1..10] of integer; // Объявим переменную массива целочисленных чисел

i: integer; // Объявим переменную счетчика

begin

randomize; // Включим генератор случайных чисел

for i:=1 to 10 do // цикл от 1 до 10

a[i] := random(101) - 50; // Каждому элементу массива присвоим значение в диапазоне [-50; 50]

end.