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

Const N = 10;varmas: array [1..N] of integer;i, less, more, zero: integer;beginfor i:=1 to N doread(mas[i]);for i:=1 to N doif mas[i]<0 thenless:=less+1else beginif mas[i]>0 thenmore:=more+1elsezero:=zero+1end;writeln('Меньше 0: '+less+' Больше 0: '+more+' Равно 0: '+zero)end.

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.