Используя процедуру найти координаты максимального элемента матрицы

program n1;
type
tmatr_i=array [1..5,1..5] of integer;
var 
k:integer;
procedure max(a:tmatr_i);
var
i,j,maxi,maxj,n:integer;
begin 
randomize;
write('n=');
readln(n)
for i:= 1 to n do begin
for j:=1 to n do 
a[i,j]:=random(10);
end;
for i:=1 to n do  begin
for j:=1 to n do 
write(a[i,j],' ');
writeln;
end;
maxi:=1;
maxj:=1;
for i:=1 to n do begin
for j:=1 to n do
If a[i,j]>a[maxi,maxj] 
then begin 
maxi:=i;
maxj:=j;
end;
end;
writeln;
write(maxi,' ',maxj);
end;
begin
writeln('');
readln(k);
max(a);
begin
if k=maxi then
writeln('verno');
end
else
writeln('neverno'); 
end;
end.

program n1;
const
  nmax=100;
  mmax=100;
type
tmatr_i=array [1..nmax,1..mmax] of integer;
var 
k,f,n,m,i,j:integer;
b:tmatr_i;
procedure maxel(l,h:integer; a:tmatr_i; var x:integer);
  var
    i,j,max:integer;
  begin 
    max:=a[1,1];
    for i:=1 to l do
      for j:=1 to h do 
        if a[i,j]>max 
        then begin 
               max:=a[i,j];
               x:=i
             end;
  end;
begin
  readln(n,m);
  readln(f);
  for i:=1 to n do
    for j:=1 to m do
      b[i,j]:=random(100);
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(b[i,j]:3);
      writeln
    end;
  maxel(n,m,b,k);
  if k=f
  then writeln('верно')
  else writeln('неверно');
end.