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

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    f:text;
    n,i,j,imn,imx:byte;
    mn,mx,x:integer;
begin
clrscr;
randomize;
assign(f,'matr.txt');
rewrite(f);
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln(f,'Ishodnaya matrica:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(f,a[i,j]:4);
   end;
  writeln(f);
 end;
writeln(f);
imn:=1;
imx:=1;
mn:=a[1,1];
mx:=a[1,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];
    imn:=i;
   end;
  if a[i,j]>mx then
   begin
    mx:=a[i,j];
    imx:=i;
   end;
 end;
writeln(f,'Min el =',mn,' v stroke ',imn);
writeln(f,'Max el =',mx,' v stroke ',imx);
writeln(f);
for j:=1 to n do
 begin
  x:=a[imn,j];
  a[imn,j]:=a[imx,j];
  a[imx,j]:=x;
 end;
writeln(f,'Obmen strok:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(f,a[i,j]:4);
  writeln(f);
 end;
close(f);
write('Результаты записаны в файл matr.txt');
readln
end.