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

// определение числа чётных и нечётных цифр в числе

var n, a, b : integer;

begin
a:=0; //чётные
b:=0; //нечётные
readln (n);

    if nlt;0 then
        n:=-n; // уничтожение знака числа
    repeat
        if ((n mod 10) mod 2lt;gt;0) then
          a:= a+1
        else
          b:= b+1;
        n:= n div 10; // удаление последней цифры числа
    until n=0;
    writeln (Чётных - +b);
    writeln (Нечётных - +a);

end.