Найти количество нечетных цифр в целом числе— Pascal(Паскаль)

var
k,n,i,kol,a:integer;
begin
write('Введите число: ');
readln(n);
kol:=0;
while n<>0 do
begin
k:=n mod 10;
n:=n div 10;
if k mod 2=1 Then
begin
inc(kol);
end;
end;
writeln(kol);
end.