))с клавиатуры вводится целое 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.