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

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.