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

var a: array[1..10000] of integer; x,y,z,i,n:integer; begin Write('Введите количество элементов массива: '); readln(n); Writeln('Введите элементы массива: '); x:=0; z:=0; y:=0; for i := 1 to n do begin readln(a[i]); if (a[i])>0 then x:=x+1 else if (a[i])=0 then  z:=z+1 else  y:=y+1; end; Writeln('Положительных элкментов масива: ', x); Writeln('Отрицательных элкментов масива: ', y); Writeln('Нулевых элкментов масива: ', z); end.