Определить кол-во нечетных цифр в числе

Var k,x:integer; 
begin 
k:=0; 
writeln('Введите число x'); 
read(x); 
while x>0 do begin 
if x mod 10 mod 2<>0 then k:=k+1; 
x:=x div 10; 
end; 
writeln(k); 
end.