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

[troublesome]

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

[volvo]

тут вот что происходит

Тут происходит совсем не то, что ты написала (либо опять что-то недоговаривается). То, что описано постом выше - делается так:

const
  max_vars = 5;
  
var 
  k, n, i, j: integer;
  T, equalOne: integer;
  
  a: array[1 .. 1 shl max_vars, 1 .. max_vars + 1] of integer;
  
begin
  repeat
    readln(k);
    if k > max_vars then writeln('неверное значение. Попробуйте еще раз');
  until k <= max_vars;
  
  n := 1 shl k;
  for i := 1 to n do
  begin
    T := i - 1;
    for j := k downto 1 do
    begin
      a[i, j] := T mod 2;
      T := T div 2;
      
      // Здесь можно устанавливать и значения F для строки №i:
      a[i, k + 1] := i mod 2; // я просто установил F как признак нечетности строки...
    end;
  end;
  
  equalOne := 0;
  // собственно вывод таблицы истинности:
  for i := 1 to n do
  begin
    for j := 1 to k do
      write(a[i, j]:2);
    write(a[i, k+1]:4); // Выводим F
    if a[i, k+1] = 1 then inc(equalOne);
    writeln;
  end;
  
  writeln('единичных значений F - ', equalOne, ' шт.');
end.

В результате имеем:


Где тут нужно сравнение строк друг с другом? Я просил привести задание ПОЛНОСТЬЮ, кстати, а не кусками... Необходимо знать КОНЕЧНУЮ цель, что ты дальше будешь делать с теми строками, в которых F = 1 ???