помогите составить программу в паскале:
в компьютер вводятся числа числа от 1 до 9. Нужно посчитать количество чётных и нечётных.

program help;uses Crt;var a,cot,cpo:integer;beginot:=0;po:=0;cot:=0;cpo:=0repeatwriteln('Число: ');readln(a);if a<0 then begin ot:=ot+a; inc(cot);end elseif a>0 then begin po:=po+a; inc(cpo); end elseif a=0 then beginwriteln('Кол-во положительных чисел: ',cpo);writeln('Кол-во отрицательных чисел: ',cot);end;until a=0;readln;end