if (Arr[i] or Arr[j]) = ($FFFFFFFF shr (32-N)) then { такая пара "строк" содержит 1-цы в каждом столбце }

const maxN=32;
 maxM=32;
var Arr:array [1..maxM] of array [1..maxN] of integer;

const n=5;
       m=4;
var
x:array[1..n,1..m] of integer;

Const maxN = 32;
Var Arr: array[1 .. 100] of LongInt;
begin
 { Читаем M, N }
 for i := 1 to m do
   for j := 1 to n do
     begin
       readln(x); { Читаем очередное число }
       if x = 1 then Arr[i] := Arr[i] or $1;
       Arr[i] := Arr[i] shl 1
     end;
 { Заполнила массив чисел, теперь - перебором их... }
end.

const maxN=32;
 maxM=32;
var Arr:array [1..maxM, 1..maxN] of integer;
N, M, i, j: integer;
begin
Write('');
ReadLn(M,N);
for i:=1 to M do
for j:=1 to N do
begin
Write('');
ReadLn(Arr[i,j]);
end;
if (Arr[i,j] or Arr[j,i]) = ($FFFFFFFF shr (32-N)) then
begin
WriteLn('yes');
ReadLn;
end
else
WriteLn('no');
ReadLn

end.

if (Arr[i,j] or Arr[j,i]) = ($FFFFFFFF shr (32-N)) then

Type TSet = Set Of Byte;
Var
 Arr: array[1 .. 100] of TSet;
 i, j, m, n, x: integer;
begin
{ Читаем M, N }
for i := 1 to m do
  begin
    Arr[i] := [];
    for j := 1 to n do
      begin
        readln(x); { Читаем очередное число }

        { в список заносим только столбцы содержащие 1-цы }
        if x = 1 then Arr[i] := Arr[i] + [j];
      end;
  end;
{ Заполнила массив множеств, теперь - перебор... }
for i := 1 to m-1 do
  for j := i+1 to m do
    { проверка, все ли столбцы находятся в объединенном списке строк i и j? }
    if Arr[i] + Arr[j] = [1 .. n] then
      writeln('строки ', i, ' и ', j, 'содержат 1-цы во всех столбцах')
end.