Написать программу любую для Паскаль

program dvuhm_massiv;

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

i, j: integer;

begin

writeln ('Заполняем массив случайными числами');

randomize;

for i : = 1 to 50 do for j : = 1 to 50 do a[i, j] : = random (100);

writeln ('Выводим массив');

for i : = 1 to 50 do begin

for j : = 1 to 50 do write (a[i, j]:4);

writeln;

end;

end.