задана последовательность из n целых чисел. найти среднее арифметическое отрицательных

Var
a: array[1..100] of integer;
i,n,c,h: integer;
  begin
    writeln('Введите кол-во частей последовательности:');    readln(n);
    writeln('Введите последовательность:');
    for i:=1 to n do
      begin
       read(a[i]);
         if  a[i]lt;0 then
          begin
           c:=c+a[i];
           h:=h+1;
          end;
      end;
    writeln(c/h);
  end.