В матрице переставить набиольший элемент в верхний левый угол, а минимальный элемент в правый нижний угол

const nmax=200;
var a:array[1..nmax,1..nmax] of integer;
n,m,i,j,imax,jmax,imin,jmin,k:integer;
f,g:text;
begin
 repeat
 write('введите кол-во элементов в строке, N=');
 readln(n);
 until n in [2..20];
 repeat 
 write('введите кол-во элементов в столбце,M='); 
 readln(m);
 until m in [2..20];
 if n<> m then write('несоответствие длины строки и столбца');
 assign(f,'2.txt');
 reset(f);
 for i:=1 to n do  
 for j:=1 to m do
  read(f,a[i,j]);
  close(f);
 assign(g,'2.txt');
 append(g);
 for i:=1 to n do begin
  for j:=1 to m do
  write(g,' ',a[i,j]);
  writeln(g);
  end;
  writeln(g);
 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;
 for i:=1 to n do 
  begin
   k:=a[i,1]; 
   a[i,1]:=a[i,jmax];
   a[i,jmax]:=k;
   end;
 for j:=1 to m do
  begin
   k:=a[1,j]; 
   a[1,j]:=a[imax,j];
   a[imax,j]:=k;
   end;
 imin:=1; 
 jmin:=1;
 for i:=1 to n do
  for j:=1 to m do
   if a[i,j]<a[imin,jmin] then 
   begin
    imin:=i;
    jmin:=j;
    end;
 for i:=1 to n do
 begin
  k:=a[i,n]; 
  a[i,n]:=a[i,jmin];
  a[i,jmin]:=k;
  end;
 for j:=1 to m do
 begin
  k:=a[n,j]; 
  a[n,j]:=a[imin,j];
  a[imin,j]:=k;
  end;
 for i:=1 to n do begin
  for j:=1 to m do 
  write(g,' ',a[i,j]);
  writeln(g);
  end;
 close(g);
 end.