Дан массив действительных чисел, размерность которого N. Подсчитать сколько в нем...

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

Const
    n = 20;

var
    a: array [1..n] of integer;
    i, positives, negatives, zeros: integer;

begin
    for i := 1 to n do
    begin
        a[i] := Random(100) - 50;
        Write(a[i], ' ');
        if a[i] < 0 then
            negatives := negatives + 1
        else  if a[i] > 0 then
            positives := positives + 1
        else
            zeros := zeros + 1
    end;
    writeln;
    
    writeln('x > 0: ', positives);
    writeln('x = 0: ', zeros);
    writeln('x < 0: ', negatives);
end.