Элементы двумерного массива A(7,8) формируются датчиком случайных чисел из промежутка [-20,70]

Поначалу создаем цикл, который наполняет случайными элементами массив.
Функция random(90) использована поэтому, что она не умеет генерировать отрицательные числа, потому мы задаем ей предел 90 и потом от случайного числа отнимаем 20, чтоб это число не превышало данные границы в 70.

var
a:array[1..7,1..8] of integer;

begin
writeln(Вывод всего массива:);
for i:integer:=1 to 7 do
begin
for j:integer:=1 to 8 do
begin
a[i,j]:=random(90)-20;
write(a[i,j]:6);
end;
writeln();
end;
writeln(Вывод четных столбцов массива:);

for i:integer:=1 to 7 do
begin
for j:integer:=1 to 8 do
begin
if j mod 2 = 0 then
write(a[i,j]:6);
end;
writeln();
end;

end.