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

vari,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.