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

Const N = 10;
var
mas: array [1..N] of integer;
i, less, more, zero: integer;
begin
for i:=1 to N do
read(mas[i]);
for i:=1 to N do
if mas[i]less:=less+1
else begin
if mas[i]>0 then
more:=more+1
else
zero:=zero+1
end;
writeln(Меньше 0: +less+ Больше 0: +more+ Равно 0: +zero)
end.