Задача Паскаль )))10 класс
Найти максимальный элемент двумерного массива. Размерность вводится с клавиатуры,массив заполняется случайным образом.Массив распечатать в виде таблицы(без setlength)
помогите пожалуйста,кто тут шарит по информатике?!

var   i, n, m, j, max: integer;   ar: array[1..10000, 1..10000]of integer;  begin   randomize;   readln(n, m);   for i := 1 to n do     for j := 1 to m do      begin       ar[i, j] := random(1, 100);       if(i = 1) and (j = 1) then max := ar[1, 1];       if(ar[i, j] > max) then max := ar[i, j];     end;   writeln('Максимальный элемент:', max);   for i := 1 to n do   begin     for j := 1 to m do write(ar[i, j]:4, ' ');     writeln;   end; end.

var a:array [1..100,1..100] of integer;n,m,i,j,max:integer;beginRandomize;write('n = ');readln(n);write('m = ');readln(m);writeln('Исходный массив:');for i:=1 to n do begin for j:=1 to m do  begin   a[i,j]:=random(51);   write(a[i,j]:4);  end;  writeln; end;max:=a[1,1];for i:=1 to n do for j:=1 to m do  if a[i,j]>max then max:=a[i,j];writeln('max = ',max);end.Пример:n = 4m = 5Исходный массив:  32  24  18   0  11  36  46  13  31  36  27  49  14  50  35   9  25  15  35  41max = 50