Delphi,квадратная матрица

[Andreikaandreik]

Определить, является ли заданная квадратная матрица n-го порядка симметричной относительно побочной диагонали.

[DoDge_VipeR]

f:=true;
for i:=1 to n do begin
for j:=1 to n-i do
if a[i,j]<>a[n-i+1,n-j+1] then begin f:=false;break;end;
if not f then break;
end;
if f then {'является'}
else {'не является'}

[Andreikaandreik]

Огромное спасибо DoDge_VipeR!