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

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.