симметрия матрицы Опции

[SayMYname]

В чем ошибка?????Подскажите...и если что исправьте) плиз))
условие: Дана квадратная матрица А порядка n. Проверить, является ли данная матрица симметричной.

Код

program;
uses
crt;
VAr
a: array [1..100,1..100] of real;
    i,j,n:integer;
procedure enter;
begin
writeln ('введите  n');
readln (n);
writeln ('введите ваш массив');
for i:=1 to n do
for j:=1 to n do
readln (a[i,j]);
end;
procedure exit;
begin
for i:=1 to n do
for j:=1 to n do
writeln (a[i,j]);
end;
procedure proverka;
begin
for i:=1 to n do
for j:=1 to n do
if a[i,j]<>a[j,i] then
begin
clrscr;
exit;
writeln ('матрица не симметрична ');
readkey;
halt;
end;
end;
BEGIN
clrscr;
enter;
proverka;
clrscr;
exit;
writeln ('матрица симметрична');
readkey;
END.

Сообщение отредактировано: SayMYname - 12.12.2008 19:45