Найти максимальных элемент в массиве размерностью М*Т. М и N вводятся с клавиатуры. (Паскаль)

var

A: array [1 ... 100, 1 ... 100] of integer;

max, i, j, m, n: integer;

begin

randomize;

writeln ('Введите размеры массива MxN: ') ;

readln (m, n) ;

for i:=1 to m do

for j:=1 to n do

A[i, j]:=random (101) ;

writeln ('Массив: ') ;

for i:=1 to m do

begin

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

writeln;

end;

max:=A[1,1];

for i:=1 to m do

for j:=1 to n do

if max < A[i, j] then max:=A[i, j];

writeln ('Максимальный элемент = ', max) ;

end.