Переставляя строки и столбцы матрицы, переместить max (min) элемент в левый (правый) верхний (нижний) угол

{ Дана квадратная матрица порядка n*n . Переставляя её строки и столбцы, добиться того, 
чтобы max(min) элемент оказался в левом (правом) верхнем (нижнем) углу. }
const
  MaxN=100;
var
  a: array[1..MaxN,1..MaxN] of integer;
  i, j, n, imax,jmax: integer;
  x: integer;
begin
  write('Размер массива ');
  readln(n);
  randomize;
  for i:= 1 to n do
    for j:= 1 to n do
      a[i,j] := random(20);
 
  writeln('Исходный массив');
  for i:= 1 to n do
    begin
      for j:= 1 to n do
        write(a[i,j]:4);
      writeln;
    end;
  writeln;
 
  imax := 1;
  jmax := 1;
  for i:= 1 to n do
    for j:= 1 to n do
      if a[i,j] > a[imax,jmax] then
        begin
          imax := i;
          jmax := j;
        end;
 
  for j:= 1 to n do
    begin
      x:= a[1,j];
      a[1,j] := a[imax,j];
      a[imax,j]:= x;
    end;
    
  writeln('Поменяли столбцы');
  for i:= 1 to n do
    begin
      for j:= 1 to n do
        write(a[i,j]:4);
      writeln;
    end;
  writeln;
 
  for i:= 1 to n do
    begin
      x:= a[i,1];
      a[i,1] := a[i, jmax];
      a[i,jmax]:= x;
    end;
    
  writeln('Поменяли строки');
  for i:= 1 to n do
    begin
      for j:= 1 to n do
        write(a[i,j]:4);
      writeln;
    end;
  writeln;
  readln;
end.