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

program prim1;
uses crt;
type mas=array[1..100,1..100] of integer;
var i,j,n,s: integer;
var a,b: mas;
 begin
 clrscr;
 write('n=');
 readln(n);
 for i:=1 to n do begin
 for j:=1 to n do begin
  readln(a[i,j]);
  end;
  end;
  for j:=1 to n do begin
  for i:=1 to n do begin
  b[j,i]:=a[i,j];
  write(b[j,i]);
  end;
END;
s:=0;
i:=j;
for i:=1 to n do begin
for j:=1 to n do begin
if a[i,j]<>b[i,j] then s:=s+1;
 end;
 end;
 if s>0 then write('НЕТ') else write('ДА, является симметричной');
end.