Подпрограммы: найти максимальное значение абсолютных величин элементов каждой матрицы

const
  nmax=20;
 
type
  tar=array[1..nmax,1..nmax] of integer;
 
procedure init(var ar: tar; n1,m1: integer);
var i,j: integer;
begin
  for i:=1 to n1 do
    for j:=1 to m1 do
      ar[i,j]:=random(199)-99;
end;
 
procedure output(ar: tar; n1,m1: integer);
var i,j: integer;
begin
  writeln('Ìàññèâ:');
  for i:=1 to n1 do
  begin
    for j:=1 to m1 do
      write(ar[i,j]:4);
    writeln;
  end;
  writeln;
end;
 
function maxim(ar: tar; n1,m1: integer): integer;
var
  max,i,j: integer;
begin
  max:=abs(ar[1,1]);
  for i:=1 to n1 do
    for j:=1 to m1 do
      if abs(ar[i,j])>abs(max) then max:=ar[i,j];
  maxim:=max;
end;
 
var
  a,b,c: tar;
  n,m,k,l,p,x: integer;
begin
  randomize;
  write('Ââåäèòå ðàçìåðû ìàññèâà n, m: ');
  readln(n,m);
  init(a,n,m);
  output(a,n,m);
  writeln('Ìàêñèìàëüíûé ýëåìåíò = ',maxim(a,n,m));
  
  write('Ââåäèòå ðàçìåðû ìàññèâà k, l: ');
  readln(k,l);
  init(b,k,l);
  output(b,k,l);
  writeln('Ìàêñèìàëüíûé ýëåìåíò = ',maxim(b,k,l));
  
  write('Ââåäèòå ðàçìåðû ìàññèâà p, x: ');
  readln(p,x);
  init(c,p,x);
  output(c,p,x);
  writeln('Ìàêñèìàëüíûé ýëåìåíò = ',maxim(a,n,m));
  readln;
end.