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

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]gt;0 then
x:=x+1
else if mas[i]lt;0 then
y:=y+1
else
z:=z+1
end;
writeln(Положительных элементов: ,x);
writeln(Отрицательных элементов: ,y);
writeln(Нулевых элементов: ,z);
end.