const n=6; m=6;
    var a:array[1..n,1..m] of integer;
        i,j:integer;
    begin
     writeln('matrix:');
     for i:=1 to n do
     begin
      for j:=1 to m do
      begin
       A[i,j]:=random(2);
       write(A[i,j]:2);
      end;
      writeln;
     end;
    end.

for i:=1 to n do
  for j:=1 to m do
  if a[i,j]<>a[j,i] then
  writeln ('матрица не симметрична ')
  else writeln ('матрица симметрична');

// Проверяем на квадратность
Symmetrical := (m = n);

// Проверяем на симметричность
if Symmetrical then
for i:=1 to n do
  for j:=1 to m do // тут можно написать for j:=i+1 to m do
    Symmetrical := Symmetrical and (a[i,j] = a[j,i]);

// Выводим результат
if Symmetrical then
  writeln ('матрица симметрична')
else
  writeln ('матрица не симметрична');