Дано натуральное число x. Верно ли, что в его записи одинаковое число чёрных и не четное цифр. ПАСКАЛЬ АВС.NET пост и пред условия

// определение числа чётных и нечётных цифр в числе var n, a, b : integer;begina:=0; //чётныеb:=0; //нечётныеreadln (n);    if n<0 then        n:=-n; // уничтожение знака числа     repeat        if ((n mod 10) mod 2<>0) then          a:= a+1        else          b:= b+1;        n:= n div 10; // удаление последней цифры числа    until n=0;    writeln ('Чётных - '+b);    writeln ('Нечётных - '+a);end.