Сделать одномерный массив с поддержкою генератора случайных чисел, содержащий целые числа

program elementy_massiva;

var x: array[-20..80] of integer;

      i, j, a, b: integer;

begin

randomize;

writeln(Введите число A);

readln(a);

writeln(Введите число B);

readln(b);

for i := 1 to 100 do x[i] := random(100);

for i:=1 to 100 do begin

if x[i] div 2 = 0 then x[i] := x[i] + a else x[i] := x[i] - b;

for i := 1 to 100 do write(x[i]:4);

end.