Pascal ABC-поседовательность чисел

[Devil25]

помогите с задачей, пожайлуста.
вычислить сумму отрицательных и количество положительных чисел в последовательности данных чисел.

[BBB]

Код: Выделить всё

var
  iNegSum, iPosQty : longint;
  iLoop : integer;

begin
  iNegSum := 0;
  iPosQty := 0;
  for iLoop := 1 to N do
    begin
       if  (A [iLoop] < 0) then
          iNegSum := iNegSum + A [iLoop]
       else
         if  (A [iLoop] > 0) then
            iPosQty := iPosQty + 1;
    end;
end.

где:
A [N] - массив твоих чисел.
Числа равные нулю, согласно тексту задачи, при переборе никак не учитываются.

[Devil25]

Спасибо!!!