Из n, введенных с клавиатуры чисел, найти сумму и кол-во отрицательных (паскаль)

Var

i, n, sum, k, a:Integer;

begin

Writeln ('Введмте кол-во чисел в последовательности') ;

ReadLn (n) ;

Writeln ('Введите числа') ;

for i:=1 to n do

begin

Readln (a) ;

if a<0 then

begin

sum:=sum+a;

k:=k+1;

end;

end;

WriteLn ('В данной последовательности ', k, ' отрицательный (ых) элемента (ов) ') ;

WriteLn ('Их сумма = ', sum) ;

end.