Написать программу включив подсчет общего количества вводимых чисел, исключая ноль; подсчет четных чисел — Pascal(Паскаль)

Program Lr6_2;
Var x:real;pol,otr,all,chet:integer;
 
BEGIN
pol:=0; otr:=0;
Write(' Введите любое число: '); readln(x);
While x<>0 do
   begin
      if x>0 then Inc(pol) else otr:=otr+1;
      if (x/2)=(abs(x/2)) then chet:=chet+1;
      all:=all+1;
 
      Write(' Введите любое число: '); readln(x);
   end;
Writeln('Количество положительных чисел - ',pol);
Writeln('Количество отрицательных чисел - ',otr);
Writeln('Количество чётных  чисел - ',chet);
Writeln('Количество общих  вводимых чисел - ',all);
 
readln;
END.