Для различных вводимых с клавиатуры целых чисел найдите сумму отрицательных чисел. В Паскале. Пожаааааааалуйста.

Var n, a, sum: integer;

begin
read(n);
for i := 1 to n do
    begin
    read(a);
    if (a lt; 0) then
        sum += a;
    end;
writeln(sum);
end.