Помогите с программой в паскале

Лучше так:

 uses crt; 

var a: int64; 

b: integer = 0; 

begin 

    clrscr(); 

    readln(a); 

    if a < 0 then a := -a; 

    while a > 0 do 

        begin 

            if odd(a mod 2) then b := b + 1; 

            a := a div 10 

        end; 

    writeln('Количество нечётных цифр ', b) 

end. 

Нужно перебрать все цифры числа, проверить четность каждой из них и увеличивать счетчик, когда увидим нечетную цифру.

Перебрать можно как минимум двумя способами: либо превратить число в строку и разбирать ее отдельные символы, либо делить число на 10 с остатком, отсекая каждый раз одну младшую цифру.

Второй способ элегантен. Смотрите, какой цикл нам нужен:

1342 mod 10 = 2 (остаток - последняя цифра)
1342 div 10 = 134 (частное - оставшиеся цифры)

134 mod 10 = 4 (еще одна цифра)
134 div 10 = 13

13 mod 10 = 3 (еще одна цифра)
13 div 10 = 1

1 mod 10 = 1 (еще одна цифра)
1 div 10 = 0

Получили ноль, заканчиваем цикл.

Остатки от деления числа 1342:
2, 4, 3, 1 - по сути, все цифры этого числа справа налево.

Реализовать можно так:

 n := 0; {Счетчик}

while a  0 do

begin

  digit := a mod 10;

  if digit mod 2  0 then n := n + 1; {Нашли нечетную цифру}

  a := a div 10;

end;

WriteLn(n); 

Разумеется, недостающие переменные n и digit следует объявить заранее в разделе var.