Задача по теме: Турбо паскаль =)

[Дмитриййй]

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

[Mad_Cat]

for i:=1 to n do
begin
p:=0;o:=0;
for j:=1 to m do begin
 if a[i,j]>0 then inc(p);
if a[i,j]<0  then inc(o);
end;
if p>o then break;
end;
if p>o then writeln('E3b')
else writeln('HEMA');