Найти последовательность из нулей и единиц матрицы, что удовлетворяют условиям

uses crt;
var a: array [1..100,1..100] of integer;
    c: array [1..100,1..100] of integer;
    b: array [1..100] of byte;
    n,i,j,k: integer;
begin
writeln ('Исходная матрица 1');
for i:=1 to 6 do
    b[i]:=0;
for i:=1 to 6 do
    begin
    for j:=1 to 6 do
        begin
        a[i,j]:=random(21)-15;
        write (a[i,j]:3);
        end;
    writeln;
    end;
writeln ('Исходная матрица 1');
for i:=1 to 6 do
    begin
    for j:=1 to 6 do
        begin
        c[i,j]:=random(21)-15;
        write (c[i,j]:3);
        end;
    writeln;
    end;
i:=1;
while i<=6 do
      begin
      for j:=1 to 6 do
          if (a[i,j]>0) or (c[i,j]>0) then inc(k);
      if k<=3 then b[i]:=1;
      k:=0;
      i:=i+1;
      end;
writeln;
writeln ('Последовательность В');
for i:=1 to 6 do
    write (b[i],' ');
end.