В квадратной матрице поменять местами наибольшие элементы главной и побочной диагоналей

program n685;
 
uses crt;
 
var
  jmxp, imxp, jmx, imx, i, j, m, n, x: integer;
  a: array[1..19, 1..19] of integer;
 
begin
  clrscr;
  randomize;
  repeat
    write('Введите нечетное n до 19 n=');
    readln(n);
  until (n in [1..19]) and odd(n);
  writeln('Исходная матрица:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(50);
      write(a[i, j]:4);
    end;
    writeln;
  end;
  imx := 1;
  jmx := 1;
  imxp := n;
  jmxp := 1;
  for i := 1 to n do
    for j := 1 to n do
    begin
      if (j = n - i + 1) and (a[i, j] > a[imxp, jmxp]) then
      begin
        imxp := i;
        jmxp := j;
      end;
      if (i = j) and (a[i, j] > a[imx, jmx]) then
      begin
        imx := i;
        jmx := j;
      end;
    end;
  writeln('Максимальный элемент побочной диагонали a[', imxp, ',', jmxp, ']=', a[imxp, jmxp]);
  writeln('Максимальный элемент главной диагонали a[', imx, ',', jmx, ']=', a[imx, jmx]);
  x := a[imx, jmx];
  a[imx, jmx] := a[imxp, jmxp];
  a[imxp, jmxp] := x;
  writeln('Обмен элементов:');
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:4);
    writeln;
  end;
  readln
end.