Дан массив действительных чисел, размерность которого N. Подсчитать, сколько в нем отрицательных, положительных и нулевых элементов — Pascal(Паскаль)

program zada4i;
var a:array [1..100] of integer;
    n,i,p,o:integer;
begin
    o:=0; p:=0;
    write ('N= '); readln (n);
    for i:=1 to n do begin
        a[i]:=random (100)-50; write (a[i]:3);
        if a[i]<0 then o:=o+1 else if a[i]>0 then p:=P+1;
    end;
    writeln;
    writeln ('polozitelnix ',p,' otricatelnix ',o ,' nulevix ',n-p-o);
    readln;
end.