сравнение строк Опции

[troublesome]

Здравствуйте!
Очень срочно нужна ваша помощь. Дан двумерный массив [1..m,1..n]. Нужно сравнить строки так: 1 со всеми, 2 со всеми и т.д. и для каждого написать число не совпадений. У меня все идеи не удались. Получается ОЧЕНЬ громоздко. Если будут хоть какие-то идеи, буду благодарна.

[troublesome]

Всем еще раз привет.

readln(k);
n:=round(exp(ln(2)*k));
k:=k+1;
 for i:=1 to n do
begin
for j:=1 to k do
begin
 write('a[',i,',',j,']=');
 readln(a[i,j]);
end;
writeln;
end;
m:=0;
for i:=1 to n do  begin
if a[i,k]=1 then m:=m+a[i,k];
                         end;
for i:=1 to n do
 if a[i,k]=1 then
  begin
 for r:=1 to m do
 for j:=1 to k do
 g[r,j]:=a[i,j];
  end;
  
     for r:=1 to m do
    begin
         for j:=1 to k do
         begin
         write('g[',r,',',j,']=',g[r,j]);
         end;
    writeln;
    end;
end.

тут вот что происходит. пользователь вводит кл-во переменных, программа создает матрицу(таблицу истинности+еще один столбик для значения F).
....... F
000 1
001 0
010 0 и т.д.
Далее программа отыскивает к-во строк, у которых F=1. за счет этого появляется информ. о к-ве строк в новой матрице, которая будет состоять только из тех строк, в которых F=1.
Проблема в том, что у меня выводится матрица, в которой все строки состоят из последней строки 1-й матрицы(где F=1). Пробовала найти ошибку в Pascal ABC, но тщетно.