Дано пятизначное число x определить сколько в нем нечетных чисел паскаль 7 класс

//Pascal
var
  X: longint;
  count: byte;
begin
  write('Введите число X: ');
  readln(X);
  while X <> 0 do
  begin
    if X mod 10 mod 2 <> 0 then
      count := count + 1;
    X := X div 10;
  end;
  writeln('Нечетных = ', count);
  readln;
end.