Найти максимальный элемент в двумерном массиве

const n=5;
type matrix=array[1..n,1..n]of integer;
var c:matrix;
 
procedure massiv(a:matrix);
var i,j:integer;
begin
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=random(70)+30;
      write(a[i,j]:3); end;
    writeln; end;
  writeln;
end;
 
procedure max(b:matrix);
var i,j:integer;
  im,jm:integer;
begin
  im:=1; jm:=1;
  for i:=1 to n do
    for j:=1 to n do
      if b[i,j]>b[im,jm] then begin
        im:=i; jm:=j; end;
  writeln('Максимальный элемент:',b[im,jm]);
  writeln('Строка:',im,' столбец:',jm);
end;
 
begin
  massiv(c);
  max(c);
end

const
  n = 5;
 
type
  matrix = array[1..n, 1..n]of integer;
 
var
  c: matrix;
 
procedure massiv(var a: matrix);
var
  i, j: integer;
begin
  for i := 1 to n do 
  begin
    for j := 1 to n do 
    begin
      a[i, j] := random(70) + 30;
      write(a[i, j]:3); end;
    writeln; end;
  writeln;
end;
 
procedure max(b: matrix);
var
  i, j: integer;
  im, jm: integer;
begin
  im := 1;jm := 1;
  for i := 1 to n do
    for j := 1 to n do
      if b[i, j] > b[im, jm] then begin
        im := i;jm := j; end;
  writeln('Максимальный элемент:', b[im, jm]);
  writeln('Строка:', im, ' столбец:', jm);
end;
 
begin
  massiv(c);
  max(c);
end.

procedure massiv(var a: matrix);