Замена в матрице строки с максимальным элементом и столбца с минимальным элементом.

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,imx,jmn:byte;
    mn,mx,x,y,z:integer;
begin
clrscr;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(50)-25;
     write(a[i,j]:4);
    end;
   writeln;
 end;
mn:=a[1,1]; jmn:=1;
mx:=a[1,1]; imx:=1;
for i:=1 to n do
for j:=1 to n do
 begin
  if a[i,j]<mn then
   begin
    mn:=a[i,j];
    jmn:=j;
   end;
  if a[i,j]>mx then
   begin
    mx:=a[i,j];
    imx:=i;
   end;
 end;
writeln('Минимальный элемент=',mn,' в столбце ',jmn);
writeln('Максимальный элемент=',mx,' в строке ',imx);
{запомним элементы на пересечениях на главной диагонали}
x:=a[imx,imx];
y:=a[jmn,jmn];
for i:=1 to n do
if not(i in [imx,jmn]) then {все элементы кроме гл. диаг. обменяем}
  begin
   z:=a[imx,i];
   a[imx,i]:=a[i,jmn];
   a[i,jmn]:=z;
  end;
a[imx,imx]:=y;{обменяем на главной}
a[jmn,jmn]:=x;
writeln('Обмен строки ',imx,' и столбца ',jmn);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.