Заменить минимальное одной матрицы на минимальное другой матрицы

uses crt;
const nmax=20;{макс размер матрицы}
type Tmatr=array[1..nmax,1..nmax] of integer;{тип матрицы}
procedure Vvod(var x,y:byte; var mt:Tmatr; c:char);{создание матрицы}
var i,j:byte;
begin
writeln('Matrica ',c,':');
repeat
write('Vvedite kolichestvo strok: ');
readln(x);
until (x>0)and(x<=nmax);{проверяем ввод}
repeat
write('Vvedite kolichestvo stolbcov: ');
readln(y);
until (y>0)and(y<=nmax);
writeln('Vvedite ',x*y,' elementov matricy:');
for i:=1 to x do
for j:=1 to y do
  begin
    write('mt[',i,',',j,']=');
    readln(mt[i,j]);
  end;
end;
procedure Vyvod(x,y:byte; var mt:Tmatr; c:char);{вывод матрицы на экран}
var i,j:byte;
begin
writeln('Matrica ',c,':');
for i:=1 to x do
  begin
    for j:=1 to y do
    write(mt[i,j]:4);
    writeln;
  end;
end;
procedure MinMat(x,y:byte;mt:Tmatr; var min:integer;var imin,jmin:byte);
{поиск минимального и его координат}
var i,j:byte;
begin
min:=mt[1,1];imin:=1;jmin:=1;
for i:=1 to x do
for j:=1 to y do
if mt[i,j]<min then
   begin
    min:=mt[i,j];
    imin:=i;
    jmin:=j;
  end;
end;
var a,b:Tmatr;
    na,ma,nb,mb:byte;
    ia,ja,ib,jb:byte;
    mna,mnb,f:integer;
begin
clrscr;
Vvod(na,ma,a,'A');
Vvod(nb,mb,b,'B');
clrscr;
Vyvod(na,ma,a,'A');
Vyvod(nb,mb,b,'B');
MinMat(na,ma,a,mna,ia,ja);
MinMat(nb,mb,b,mnb,ib,jb);
writeln('Minimum v matrice A - a[',ia,',',ja,']=',mna);
writeln('Minimum v matrice B - b[',ib,',',jb,']=',mnb);
f:=a[ia,ja];
a[ia,ja]:=b[ib,jb];
b[ib,jb]:=f;
Vyvod(na,ma,a,'A');
Vyvod(nb,mb,b,'B');
readln
end.