Найти max элементы в матрицах А и В (MaxA и MaxB соответственно) - Free Pascal

const
  n=4;
type tarray=array[1..n,1..n] of integer;
var a,b,c:tarray;
    i,j,max1,max2:integer;
begin
max1:=-999;
randomize;
writeln('massiv A');
for i:=1 to n do begin
  for j:=1 to n do begin
    a[i,j]:=random(18)-9;
    write(a[i,j],' ');
    if a[i,j]>max1 then max1:=a[i,j];
    end;
  writeln;
  end;
writeln('max1=',max1,'');
writeln('massiv B');
for i:=1 to n do
  for j:=1 to n do
    b[i,j]:=0;
for i:=1 to n do begin
  for j:=1 to n do begin
    if i=j then begin
      b[i,j]:=1;
      end;
    write(b[i,j],' ');
    max2:=1;
    end;
  writeln;
  end;
writeln('max2=',max2,'');
if max1=max2 then writeln('max1=max2') else begin
  if max1>max2 then begin
    writeln('max1>max2');
    writeln('massiv C');
    for i:=1 to n do begin
      for j:=1 to n do begin
        c[i,j]:=a[i,1]*b[1,j]+a[i,2]*b[2,j]+a[i,3]*b[3,j]+a[i,4]*b[4,j];
        write(c[i,j],' ');
        end;
      writeln;
      end;
    end else begin
    writeln('max1<max2');
    writeln('massiv C');
    for i:=1 to n do begin
      for j:=1 to n do begin
        c[i,j]:=b[i,1]*a[1,j]+b[i,2]*a[2,j]+b[i,3]*a[3,j]+b[i,4]*a[4,j];
        write(c[i,j],' ');
        end;
      writeln;
      end;
    end;
  end;
readln;
end.