Вводится последовательность из n целых чисел

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