Найти, сколько элементов массива удовлетворяют условию

program Work;
{$N+,E+}
{            Вариант  60 - элементы массива типа LONGINT.
Найти сумму первых K отрицательных элементов массива A.}
Uses CRT;
Const NN=20;     {Максимальная длина вектора}
         invN=' N';
         invK=' K';
          inv1='Повторите ввод';
          inv4='выходит за диапазон [-2147483648..2147483647]!!!!';
          inv5='Вводимое значение ';
Type ArrayA=Array [1..NN] of LongInt;
Var k,N:integer;
          A:ArrayA;
         ch:char;
                         {Ввод  значения N, 1<=N<=NN}
Procedure Input(inv:String; NN:Integer; Var N:integer);
Begin
  Repeat
       Write('Введите значение'+inv,'=>');
       Readln(N);
  Until (N<=NN) and (N>=1);
End;
     {Ввод  N значений компонент вектора A[i],   -2147483648<=A[i]<= 2147483647}
Procedure InputVector(N:integer;Var A:arrayA);
Label L;
Var i :integer;
    Ra:Real;
    s1:String;
Begin
  for i:=1 to N do
    Begin
L:    Write('Введите значение элемента вектора A[',i,']=>');
         Readln(Ra);
         if (Ra>=-2147483648.0)and(Ra<=2147483647.0) then A[i]:=trunc(Ra)
          else
             Begin
                 s1:=inv5+inv4;
                 Writeln(s1);
                 Writeln(inv1);
 
 
                 goto L;
             End
    End;
End;