Дан двумерный массив размером n на m, заполненный случайными числами. Определить, есть ли в данном массиве строка, содержащая больше положительных элементов, чем отрицательных — Pascal(Паскаль)

Uses
 CRT;
var
 B:array [1..10,1..10] of integer;
 k,m,n,i,j,kolpol,kolotr:integer;
 t:boolean;
begin
 write('=: ');
 readln(k,m);
 randomize;
 writeln('=: ');
 for i:=1 to k do
 begin
  for j:=1 to m do
  begin
   b[i,j]:=random(10)-7;
   write(b[i,j]:3);
  end;
  writeln;
 end;
 writeln;
 t:=false;
 for i:=1 to k do
 begin
  kolpol:=0;
  kolotr:=0;
  for j:=1 to m do
  if b[i,j]>0 then
  begin
  inc(kolpol);
  end;
   if b[i,j]<0 then
  begin
  inc(kolotr);
  end;
  if kolpol>kolotr then
  begin
  t:=true;
  end;
 end;
writeln;
if t then writeln('Ye')
else writeln('No');
readkey
end.