[Grunch]

Пусть у нас:

Код:

var
  A: Array [0..99] of integer;
  Count: integer;
  i: integer;

Тогда после ввода массива количество отрицательных чисел можно посчитать так:

Код:

Count:=0;
for i:=0 to 99 do
begin
  if A[i]<0 then inc(Count)
end;
edit2.Text:=IntToStr(Count);