const n=4; m=5;
var a : array[1..n,1..m] of integer; 
    max,i,j,k : integer;
begin
Randomize; 
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
   a[i,j]:=random(20)-10;
   write(a[i,j]:4); 
  end;
  writeln;
  end; 
max:=a[1,1]; k:=0;
for i:=1 to n do
 for j:=1 to m do 
  if a[i,j]>max 
   then begin max:=a[i,j];k:=1; end
   else if a[i,j]=max then k:=k+1;
writeln('max=',max,'  k=',k);
end.

Пример:
   3   8 -10   4   8
 -10  -5  -7   3   0
  -7  -5  -5   4   6
  -5  -2   1   1  -8
max=8  k=2