Матрица. Найти сумму максимальных элементов заданных матриц

Uses CRT;
Const n=5;
var a,b:array[1..n,1..n] of integer;
    i,j,max,max2,s:integer;
Procedure MaxA;
begin
max:=a[1,1];
for i:=1 to n do
for j:=1 to n do
      begin
           if a[i,j]> max then max:=a[i,j];
      end;
writeln('');
writeln('Max=',max);
end;
Procedure MaxB;
begin
max2:=a[1,1];
for i:=1 to n do
for j:=1 to n do
      begin
           if b[i,j]> max2 then max2:=b[i,j];
      end;
writeln('Max2=',max2);
end;
Procedure Summ;
begin
     s:=max+max2;
     writeln('Summa=',s);
end;
begin
     ClrScr;
     Randomize;
     for i:=1 to n do
     for j:=1 to n do
     begin
          a[i,j]:=Random(21);
          gotoxy(j*5+5,i);
          write(a[i,j]);
     end;
     for i:=1 to n do
     for j:=1 to n do
     begin
         b[i,j]:=Random(15);
         gotoxy(j*5+5,i+10);
         write(b[i,j]);
     end;
MaxA;
MaxB;
Summ;
end.