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

Program chisla;
Var A: array [1..10] of integer;
    o,p,i:integer;
Begin
    For i:=1 to 10 do Readln(A[i]);
    For i:=1 to 10 do Begin
        If A[i]<0 then o:=o+A[i];
        If A[i]>0 then p:=p+1;
        End;
    Write('Сумма отрицательных = ',o,'.'); Writeln('');
    Write('Количество положительных = ',p,'.');
End.