Задан одномерный массив из н чисел сосчитать количество элементов массива положительных отрицательных и нулевых

Const N = 10;

var

mas: array [1 ... N] of integer;

i, x, y, z:integer;

begin

for i:=1 to 10 do

read (mas[i]) ;

x:=0;

y:=0;

z:=0;

for i:=1 to 10 do begin

if mas[i]>0 then

x:=x+1

else if mas[i]<0 then

y:=y+1

else

z:=z+1

end;

writeln ('Положительных элементов: ', x) ;

writeln ('Отрицательных элементов: ', y) ;

writeln ('Нулевых элементов: ', z) ;

end.