Диагональность матрицы

[kalosha-stepa]

что-то не выходит где то ошибка в условии

program z3;
Type masInt=array [1..10,1..10] of integer;
var a:masInt; n: integer; i,j:integer; b,c: boolean;

procedure Form (var n:integer;var a:masInt);
var f: text;i, j: integer;
begin
assign(f, '3.txt');
reset(f);
readln(f, n);
for i := 1 to n do
begin
for j := 1 to n do read(f, a[i, j]);
readln(f);
end;
close(f);
end;

procedure Print (a: masInt; n: integer);
var i,j: integer;
begin
for i:=1 to n do begin
for j:=1 to n do write (a[i,j],' ');
writeln;
end; end;

procedure Dioganal (a: masInt;n: integer);
var i,j: integer;
begin
b:=true; c:=true;
i:=1;
While (i<=n)and b and c do
begin
j:=1;
while (j<=n)and b and c do begin
if b and (j>i) and (a[i,j]<>a[j,i]) then b:=false;
if c and ((n-j)<i)and (n-i>0)and(n-j>0)and(a[i,j]<>a[n-i,n-j]) then c:=false;
inc(j);
end;
inc(i);
end;
end;

Begin
Form(n,a);
Print(a,n);
Dioganal(a,n);

if (not c) and (not b) then writeln('не симметрична')
else if c=true then writeln('симметрична относительно побочной')
else if b=true then writeln('симметричен относительно главной')
else writeln('симметричен везде')
End.

[domovou]

Сообщение от kalosha-stepa

что-то не выходит где то ошибка в условии

program z3;
Type masInt=array [1..10,1..10] of integer;
var a:masInt; n: integer; i,j:integer; b,c: boolean;

procedure Form (var n:integer;var a:masInt);
var f: text;i, j: integer;
begin
assign(f, '3.txt');
reset(f);
readln(f, n);
for i := 1 to n do
begin
for j := 1 to n do read(f, a[i, j]);
readln(f);
end;
close(f);
end;
...

Ты считываешь из файла массив, Но я так и не увидел как ты его туда записываешь

[kalosha-stepa]

Я создаю тестовый файл уже с этой матрицей и потом вывожу симметрична или нет

[Leshii]

Скинь сюда полное условие задачи.

К примеру симметричность относительно главное диагонали можна проверить так:

for i:=1 to n do
 for j:=i to n do begin
   if a[i,j] = a[j,i] then {true} else {false}

Ну а побочной так:

for i:=1 to n do
    for j:=1 to n-i do
        if a[i,j] = a[n-i+1,n-j+1] then {true}  {для побочной}

[kalosha-stepa]

Проверить является ли массив n*n симметричным относительно одной из его диагоналей.