Написать на языке Паскаля. Даны числа.Найти сумму отрицательных чисел

program zz1;

var a, b,  n, i:integer; // задаем переменные целого типа

begin

write( введите количество заданных чисел );  // вводим с клавиатуры число

read(n);  

for i:=1 to n do // организуем цикл на n повторений

begin

read(a);  // вводим еще одно число

if a lt; 0 then b:=b + a; // проверяем, если число отрицательное, то прибавляем его в сумму

end;

write( сумма отрицательных чисел = , b); // выводим ответ

end.