[Alegun]

Возможно надо так

Код:

var
i,j,CountPlus,CountMinus: integer;
begin
 for j := 1 to N do
  begin
   CountPlus:=  0;
   CountMinus:= 0;
   for i := 1 to N do
    if M[i, j] > 0 then Inc(CountPlus) else Inc(CountMinus);
   if CountPlus > CountMinus then B[j]:= 10 else B[j]:= 1;
  end;
end;