Нужно написать программу подсчитывающую количество чётных и не чётных цифр в числе

//PascalABC.Net 3.0, сборка 1053
var
n: longint;
d, n1, n2: integer;

begin
n1 := 0; n2 := 0;
Write('Введите натуральное число: ');Read(n);
repeat
    d := n mod 10;
    if odd(d) then Inc(n1) else Inc(n2);
    n := n div 10
until n = 0;
Write('Нечетных ', n1, ', четных ', n2)
end.

Тестовое решение:
Введите натуральное число: 3534052
Нечетных 4, четных 3