Составить массив из 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]lt;0 then o:=o+A[i];
        If A[i]gt;0 then p:=p+1;
        End;
    Write('Сумма отрицательных = ',o,'.'); Writeln('');
    Write('Количество положительных = ',p,'.');
End.