Проверить симметричны ли части матрицы справа и слева побочной диагонали — Pascal(Паскаль)

var 
a:array[1..100,1..100] of integer;
i,j,n:byte;
l:boolean;
f:text;
 
begin
assign(f,'in.txt');
reset(f);
read(f,n);
rewrite(f);
l:=true;
for i:=1 to n-1 do
for j:=1 to n-i do
if a[i,j]<>a[j,i] then l:=false;
if l then 
write(f,'yes')
else write(f,'no');
read;
close(f);
end.