Поменять местами наибольший и наименьший элементы матрицы

uses crt;
const nmax=20;
      k1=3;
      k2=4;
      c:array[1..k1,1..k2]of integer=((1,2,3,4),
                                      (5,6,7,8),
                                      (9,10,11,12));
type matr=array[1..nmax,1..nmax] of integer;
procedure Konst(var ms:matr;var x,y:byte);
var i,j:byte;
begin
x:=k1;
y:=k2;
for i:=1 to x do
for j:=1 to y do
ms[i,j]:=c[i,j];
end;
procedure Razm(var x,y:byte);
begin
repeat
write('Количество строк до ',nmax,' =');
readln(x);
until x in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' =');
readln(y);
until y in [1..nmax];
end;
procedure Rand(var ms:matr;x,y:byte);
var i,j:byte;
begin
randomize;
for i:=1 to x do
for j:=1 to y do
ms[i,j]:=random(50)+1;
end;
procedure Klav(var ms:matr;x,y:byte);
var i,j:byte;
begin
clrscr;
writeln('Введите элементы массива:');
for i:=1 to x do
for j:=1 to y do
 begin
  write('el[',i,',',j,']=');
  readln(ms[i,j]);
 end;
end;
procedure Vyvod(var ms:matr;x,y:byte);
var i,j:byte;
begin
for i:=1 to x do
 begin
  for j:=1 to y do
  write(ms[i,j]:4);
  writeln;
 end;
end;
procedure Obmen(var ms:matr;x,y:byte);
var i,j,imn,jmn,imx,jmx:byte;
    b:integer;
begin
imn:=1;jmn:=1;
imx:=1;jmx:=1;
for i:=1 to x do
for j:=1 to y do
if ms[i,j]<ms[imn,jmn] then
 begin
  imn:=i;
  jmn:=j;
 end
else if ms[i,j]>ms[imx,jmx] then
 begin
  imx:=i;
  jmx:=j;
 end;
writeln('Минимальный  элемент [',imn,',',jmn,']=',ms[imn,jmn]);
writeln('Максимальный элемент [',imx,',',jmx,']=',ms[imx,jmx]);
b:=ms[imn,jmn];
ms[imn,jmn]:=ms[imx,jmx];
ms[imx,jmx]:=b;
end;
 
var a:matr;
    m,n:byte;
    w:char;
begin
clrscr;
repeat
clrscr;
writeln('Заполнение массива:');
writeln('1-константа');
writeln('2-случайные числа');
writeln('3-вручную');
writeln('другое-выход');
readln(w);
case w of
'1':Konst(a,n,m);
'2':begin
    Razm(n,m);
    Rand(a,n,m);
    end;
'3':begin
    Razm(n,m);
    Klav(a,n,m);
    end;
else exit;
end;
clrscr;
writeln('Исходный массив:');
Vyvod(a,n,m);
Obmen(a,n,m);
writeln;
writeln('Обмен минимального и максимального:');
Vyvod(a,n,m);
readln;
until not(w in ['1'..'3']);
end.