Работа с матрицами

[goGAS]

Дана целочисленная матрица размера M × N. Найти номер первой из ее строк, содержащих равное количество положительных и отрицательных элементов (нулевые элементы не учитываются). Если таких строк нет, то вывести

for i := 1 to N do
begin
  c := 0;
  for j := 1 to M do
    if a[i, j] > 0 then
      Inc(c)
    else  
      if a[i, j] < 0 then
        Dec(c);
  if c = 0 then
  begin
    WriteLn('Result: ', i);
    exit;
  end;
end;
WriteLn('Result: 0');

всегда выводит 0, помогите пжл разобраться =)

[Stilet]

А ты уверен что в массив правильно значения вводятся?
У меня твой код норм отрабатывает:

20 19 -14 12 10 -6 8 14 6 3
17 2 18 -13 18 9 -16 6 -10 7
-7 -13 -8 8 14 7 2 11 -13 9
1 15 -14 9 -10 -19 1 -15 -13 20
Result: 4