Вывести номер первой строки матрицы, содержащей равное количество положительных и отрицательных элементов - Pascal

Формулировка задачи:

помогите решить пожалуйста и составьте схему,если не тяжело! Дана целочисленная матрица размера 5 на 10. Вывести номер ее первой строки, содержащей равное количество положительных и отрицательных элементов (нулевые элеметны не учитываются). Если таких строк нет, то вывести 0.

Решение задачи: «Вывести номер первой строки матрицы, содержащей равное количество положительных и отрицательных элементов»

Листинг программы

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');

Объяснение кода листинга программы

В этом коде используется два вложенных цикла. Первый цикл проходит по всем строкам матрицы (обозначенной как a), а второй цикл проходит по всем элементам текущей строки. Если элемент положительный, то переменная c увеличивается на единицу. Если элемент отрицательный, то переменная c уменьшается на единицу. Если после прохода по всем элементам строки значение переменной c равно нулю, то это означает, что в данной строке равное количество положительных и отрицательных элементов. В этом случае выводится номер строки и программа завершается. Если после прохода по всем строкам значение переменной c не равно нулю, то выводится сообщение, что результат не найден.