Дано целое число n. определите количество нечётных цифр в данном числе. (pascal)

//PascalABC.Net
var
  n, k: integer;

begin
  readln(n);
  while n > 0 do begin
    inc(k, n mod 2);
    n := n div 10
  end;
  writeln('Количество нечетных: ', k);
end.