Симметрия массива

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.

Uses crt;
const n=4;
Var x:array[1..n,1..n] of integer; i,j,y,z:integer;
Begin clrscr; randomize;
  for i:=1 to n do
   for j:=1 to n do x[i,j]:=Random(2);
  for i:=1 to n do
    Begin
      for j:=1 to n do Write(x[i,j]:4);
      WriteLn;
    End;
  z:=0;
  for i:=1 to n do
   for j:=1 to n do
    if (i<>j) and (x[i,j]<>x[j,i]) then z:=1;
  if z=0 then WriteLn('matrica simmetrichna otnositelno glavnoi diagonali');
  y:=0;
  for i:=1 to n do
   for j:=1 to n do
    if (i<>n-j+1) and (x[i,j]<>x[n-j+1,n-i+1]) then y:=1;
  if y=0 then WriteLn('matrica simmetrichna otnositelno pobochniy diagonali');
  if (z<>0) and (y<>0) then WriteLn('ne simmetrichna');
  ReadLn;
End.