Вводится последовательность из n целых чисел. Сколько отрицательных и сумма положительных чисел?

Program ololosh;   var posledov:array [1..1000] of integer; kolvo_otr, summ, i , n:integer;   begin readln(n); {"вводится последовательность из n целых чисел."} kolvo_otr:=0; summ:=0;   for i:= 1 to n do begin write('введите число '); readln(posledov[i]); if posledov[i]>0 then summ:=summ+posledov[i] else kolvo_otr:=kolvo_otr+1; end;   writeln('отрицательных - ', kolvo_otr); write('сумма положительных чисел - ', summ); end.