Переставляя строки и столбцы матрицы, добиться того, чтобы ее наибольший элемент оказался в верхнем левом углу

const
  nmax=100;
var
  a: array[1..nmax,1..nmax] of integer;
  n,m,i,j,max,ik,jk,tmp: integer;
begin
  read(n);
   for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      read(a[i,j]);
    end;
  end;
    max:=a[1,1]; ik:=1; jk:=1;
  for i:=1 to n do
    for j:=1 to n do
    if a[i,j]>max then
    begin
      max:=a[i,j];
      ik:=i;
      jk:=j;
    end;
  for i:=1 to n do
  begin
    tmp:=a[i,1];
    a[i,1]:=a[i,jk];
    a[i,jk]:=tmp;
  end;
  for j:=1 to n do
  begin
    tmp:=a[1,j];
    a[1,j]:=a[ik,j];
    a[ik,j]:=tmp;
  end;
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j],' ');
    writeln;
  end;
end.

const
  n = 3;
var
  matr:array[1..n, 1..n] of integer;
  i,j,k,i2,j2,tmp: integer;
 begin
   for i:=1 to n do
    for j:=1 to n do
      read(matr[i,j]);
    for k:=1 to n*n do
    for i:=1 to n do
      for j:=1 to n do
      begin
        i2:=0;
        j2:=0;
        if(j<n) then
        begin
          i2:=i;
          j2:=j + 1;
        end
        else if(i<n) then
        begin
          i2:=i+1;
          j2:=1;
        end;
        if (i2<>0) then
        begin
          if matr[i,j]<matr[i2,j2] then
          begin
            tmp:=matr[i2,j2];
            matr[i2,j2]:=matr[i,j];
            matr[i,j]:=tmp;
          end;
        end;
      end;
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(matr[i,j], ' ');
    writeln;
  end;
end.