Паскаль,написать программу: организовать с клавиатуры ввод n произвольных целых чисел. определить количество отрицательных и сумму положительных.

Var
n, i, a, kotr, sumpol: longint;
begin
readln(n);
kotr := 0;
sumpol := 0;
for i := 1 to n do begin
read(a);
if (a < 0) then
inc(kotr)
else
sumpol := sumpol + a;
end;
writeln('Количество отрицательных чисел = ', kotr);
writeln('Сумма положительных чисел = ', sumpol);