Поменять местами элементы матрицы

uses crt;
 
const
  nmax = 10;
 
var
  M : array [1..nmax, 1..nmax] of integer;
  i, j, n : integer;
  temp, max1, max2 : integer;
  jmax1, jmax2 : integer;
 
begin
  Randomize;
  Repeat
    Write('Введите n (n - нечетное): ');
    Readln(n);
  until n in [1..nmax];
  Writeln('Исходный массив');
  for i := 1 to n do
    begin
      for j := 1 to n do
        begin
          M[i, j] := random(101) - 50;
          Write(M[i, j]:4, ' ');
        end;
      Writeln;
    end;
  for i := 1 to (n div 2) do
    begin
      max1 := M[i, 1];      max2 := M[n - i + 1, 1];
      jmax1 := 1;      jmax2 := 1;
        for j := 1 to n do
          begin
            if max1 < M[i, j] then 
              begin
                max1 := M[i, j];
                jmax1 := j;
              end;
            if max2 < M[n - i + 1, j] then 
              begin
                max2 := M[n - i + 1, j];
                jmax2 := j;
              end;
          end;
      temp := M[i, jmax1];
      M[i, jmax1] := M[n - i + 1, jmax2];
      M[n - i + 1, jmax2] := temp;
    end;
  Writeln('Новый массив: ');
    for i := 1 to n do
    begin
      for j := 1 to n do          Write(M[i, j]:4, ' ');
      Writeln;
    end;
  Readln;
end.