Напишите программу в паскале , которая вводит двумерный массив целых чисел 5 на 10 элементов случайным образом и выводит его на экран

const n=5; m=10;var a:array[1..n,1..m] of integer;i,j:integer;beginRandomize;writeln('Исходный массив:');for i:=1 to n do begin for j:=1 to m do  begin   a[i,j]:=random(100);   write(a[i,j]:4);  end;  writeln; end;end.Пример (массив 4*5):Исходный массив:  80  22  78  64  15  21  34  96  84  12  55  29  45  92  73  35  60  63   9  17