Найти максимальных элемент в массиве размерностью М*Т.М и 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 writeln(Максимальный элемент = ,max);
end.