Написать процедуру нахождения номеров всех максимальных элементов массива. — Pascal(Паскаль)

program pr;
var
a:array[1..100,1..100] of integer;
i,j,k,l,max,imax,jmax:integer;
{+++++++++++++++++++++++++++++}
Procedure Maximum(n,m:integer);
var
   x,y:integer;
begin
for x:=1 to n do
begin
     max:=-1000;
     for y:=1 to m do
     if a[x,y]>max then
     begin
          max:=a[x,y];
          imax:=x; jmax:=y;
     end;
    writeln('max=',max);
    writeln('строка=',imax);
    writeln('столбец=',jmax);
end;
end;
{+++++++++MAIN+++++++++++}
Begin
   write('k= ');
   readln(k);
   write('l= ');
   readln(l);
   for i:=1 to k do
   begin
      for j:=1 to l do
      read (a[i,j] );
   end;
   writeln;
   for i:=1 to k do
   begin
      for j:=1 to l do
      write (a[i,j],'  ' );
      writeln;
   end; writeln;
Maximum(k,l);
 
 
end.