Помогите))С клавиатуры вводится целое 4-х значное число. Выдать сообщение о том, есть ли в этом числе четные цифры и указать их количество.НА ПАСКАЛЕ

 var b:integer; begin readln(b);  If (b div 1000)mod 2=0 then writeln('1 цифра четная') else writeln('1 цифра нечетная'); If ((b div 100) mod 10)mod 2=0 then writeln('2 цифра четная') else writeln('2 цифра нечетная'); If ((b div 10)mod 10)mod 2=0 then writeln('3 цифра четная')else writeln('3 цифра нечетная'); If (b mod 100)mod 2=0 then writeln('4 цифра четная') else writeln('4 цифра нечетная'); end.