Поменять местами элементы половин параллельных диагоналей матрицы над главной и под побочной диагоналями - Pascal

[kabank]

Напишите программу которая меняет местами диагонали, выделенные пунктиром.(т.е. над половиной главной диагонали и под половиной побочной диагонали)

[Serge_Bliznykov]

for i:=1 to (n div 2) do begin
  tmp := A[i,i];
  A[i,i] := A[n+1-i,i];
  A[n+1-i,i] := tmp
end;