Нужна помощь: С клавиатуры вводится последовательность из n целых чисел. Найти сумму отрицательных чисел. (Delphi)

summator:=0;
i:=0
while (i < 0) do
begin
readln(mass [ i ] );
if (mass [ i ] < 0) then inc(summator);
inc(i);
end;