Нaписать программy, подсчитывающую количество четных и нечетных цифр в числе. Использовать оператор While. ( Pascal). Помогите пожалуйста с информатикой!

var a,b,c: longint;

begin

Read(a);

b:=0; c:=0;

while a<>0 do begin

if a mod 2=0 then b:=b+1

else c:=c+1; a:=a div 10; end;

Write(b, ' ', c);

end.

//a – число, вводящиеся с клавиатуры

//b – количество чётных цифр в числе

//с – количество нечётных цифр в числе