Pascal. Матрица

[plohoh]

Является ли данный квадратный массив симметричным, относительно побочной диагонали? Если да, то получить из него треугольную матрицу, заменив все элементы, расположенные над побочной диагональю единицами.
Сформировал матрицу, не пойму как сделать проверку на симметричность...

[rubius2008]

f:=true;
for i:=1 to n-1 do 
  for j:=n-i downto 1 do if a[i,j]<>a[n-j+1,n-i+1] then f:=false;
if f then writeln('массив симметричный')
     else writeln('массив НЕ симметричный');

[plohoh]

Спасибо, помог)