Написать программу, меняющую местами максимальные элементы двух заданных матриц

Uses Crt;
Type matr=array[1..20,1..20] of integer;
Var A,B:matr;
    imax1,jmax1,imax2,jmax2,n,m,t:integer;
Procedure Init(Var A:matr;n,m:integer);
Var i,j:byte;
Begin
    For i:=1 to n do
     For j:=1 to m do
      A[i,j]:=random(31)-15;
End;
Procedure Vivod(A:matr;n,m:integer;ch:char);
Var i,j:byte;
Begin
    writeln('Матрица ',ch);
    For i:=1 to n do
    Begin
      For j:=1 to m do
       write(A[i,j]:4);
      writeln;
    End;
End;
Procedure Max(A:matr;n,m:integer;Var imax,jmax:integer);
Var i,j:byte;
Begin
    imax:=1;jmax:=1;
    For i:=1 to n do
     For j:=1 to m do
      if A[i,j]>A[imax,jmax] then
      Begin
        imax:=i;
        jmax:=j;
      End;
End;
Begin
    ClrScr;Randomize;
    write('Кол-во строк: ');readln(n);
    write('Кол-во столбцов: ');readln(m);
    Init(A,n,m);
    Vivod(A,n,m,'A');
    Init(B,n,m);
    Vivod(B,n,m,'B');
    Max(A,n,m,imax1,jmax1);
    Max(B,n,m,imax2,jmax2);
    writeln('Max в матрице A = ',A[imax1,jmax1]);
    writeln('Max в матрице B = ',B[imax2,jmax2]);
    t:=A[imax1,jmax1];
    A[imax1,jmax1]:=B[imax2,jmax2];
    B[imax2,jmax2]:=t;
    Vivod(A,n,m,'A');
    Vivod(B,n,m,'B');
    readln;
End.