Задана последовательность из n целых чисел. определить среднее арифметическое отрицательных элементов последовательности. Написать программу в Pascal.

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]          begin
           c:=c+a[i];
           h:=h+1;
          end;
      end;
    writeln(c/h);
  end.