Массив 7х7 целого типа в каждом столбце поменять max элемент и элемент побочной диагонали

[Sheport]

Массив 7х7 целого типа в каждом столбце поменять max элемент и элемент побочной диаголнали. Ошибка там где выделено красным. Помогите исправить.

uses crt;
var a: array[1..7, 1..7] of integer;
  i, j, t, max, imax: integer;
begin
  randomize;
  for i := 1 to 7 do begin
    for j := 1 to 7 do begin
      a[i, j] := random(20);
      write(a[i, j]: 4); end;
    writeln;
  end;
  writeln;
  for i := 1 to 7 do begin
    max := a[i, 1]; imax := 1;
    for j := 2 to 7 do begin
      if a[i, j] > max then begin
        max := a[i, j]; imax := j;
      end; end;
    a[i, 8 - j] := a[i, j];
    a[i, 8 - j] := max; 
  end;
  for i := 1 to 7 do begin
    for j := 1 to 7 do begin
      write(a[i, j]: 4);
    end;
    writeln;
  end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

если я правильно понял задание, то не только красные строки неверно написаны, но и циклы по другому надо крутить - по столбцу - а внутри столбца перебирать строки...

примерно так:

  writeln;
  for j := 1 to 7 do begin
    max := a[1, j]; imax := 1;
    for i := 2 to 7 do begin
      if a[i, j] > max then begin
        max := a[i, j]; imax := i;
      end; end;
    Writeln('в столбце ',j,' max = ',max,' найден в строке ',imax);
    a[imax,j] := a[8 - j, j];
    a[8 - j, j] := max;
  end;