Найти номер строк матрицы, где количество отрицательных и неотрицательных элементов равно - Pascal

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

Дан текстовый файл Найти номер строк матрицы где количество отрицательных и неотрицательных элементов равно; я никак не пойму как это написать

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

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

var j, cn, co: Integer; e: Real;
begin
  Assign(input,'input.txt'); Reset(input);
  while not EoF do begin
    cn:=0; co:=0; Inc(j);
    while not SeekEoLn do begin
      Read(e); if e<0 then Inc(cn) else Inc(co);
    end;
    if (cn=co) and (cn+co>0) then Write(' ',j);
  end; WriteLn;
  Close(input);
end.

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

Объявляются переменные:
- j, cn и co типа Integer для хранения номера строки, количества отрицательных и неотрицательных элементов соответственно;
- e типа Real для хранения текущего элемента матрицы.
Открывается файл для чтения input.txt.
Запускается цикл чтения данных из файла до конца файла:
- Записывается начальное значение cn и co в 0.
- Увеличивается значение j на 1.
- Запускается внутренний цикл чтения элементов строки:
  - Читается значение элемента e из файла.
  - Если значение e меньше 0, увеличивается значение cn на 1, иначе увеличивается значение co на 1.
Если количество отрицательных и неотрицательных элементов в строке одинаково и больше 0, выводится номер строки.
Закрывается файл. В результате выводятся номера строк матрицы, в которых количество отрицательных и неотрицательных элементов равно.