задача в pascal!!

[Nikikaaa]

в целочисленном массиве А[10][10] поменять местами элементы главной и побочной диагонали, сохраняя номер строки.

помоги пожалуйста, очень срочно надо

[Grag]

for i:=1 to N do
  begin
    X:=A[i,i];
    A[i,i]:=A[i,N-i+1];
    A[i,N-i+1]:=X
  end;

[Nikikaaa]

Сообщение от Grag

for i:=1 to N do
  begin
    X:=A[i,i];
    A[i,i]:=A[i,N-i+1];
    A[i,N-i+1]:=X
  end;

извини, а можешь всю задачу как нито настрочить? я не понимаю совершенно ничего в этом