Типизированные файлы, матрица Опции

[leahov]

Ещё одна задача
Пусть матрица A целых чисел размером 10 на 10 записана по строкам в файле. Найдите все совпадающие между собой строки и столбцы и выведите их номера.

uses crt;
var a: array[1..10,1..10] of Integer; {Матрица}
  x,y: Integer;

procedure Iskat;
var Flag: Boolean;
begin
for x:=1 to 10 do
 begin
 Flag:=True;
 for y:=1 to 10 do if a[x,y]<>a[y,x] then Flag:=False;
 if Flag then WriteLn(x);
 end;
end;

begin
Clrscr;
TextAttr:=7;
Randomize;
for x:=1 to 10 do for y:=1 to 10 do a[x,y]:=Random(2); {Заполняем массив}
Iskat;
for x:=1 to 10 do
 begin
 for y:=1 to 10 do Write(a[x,y]:5,' '); {Столбец(y) - строка(x)}
 WriteLn;
 end;
end.

Она показывает матрицу, но не выводит результат совпадающие между собой строки и столбцы, как енто сделать?

[leahov]

у меня просто срок сдачи в понедельник, дома интернета нет, я решаю тут в тихаря на работе, но через полчаса вырубят свет и всё! Да, я знаю что Вы не обязаны мне помогать, но в виде исключения, пожалуйста помогите. Осталось сделать только эти два задания и всё, прощай Pascal. На следующих курсах информатики не будет, а так не хочется сдавать его весной. В библиотеке нашел только один учебник Немнюгина. кое что беру из него, но там тоже не всё для меня понятно. Так что ещё раз прошу, если есть возможность помочь, буду очень благодарен.