Помогите пожалуйста с Паскалем! Срочно
С клавиатуры вводится натуральное четырёхзначное число N. Выведете количество учётных цифр этого числа.

vara,k:integer;beginrepeat   writeln('введите 4-х значное');   readln(a);until (a>999)and(a<10000);   while a>0 do        begin           if (a mod 10) mod 2=0 then               k:=k+1;           a:=a div 10;        end;if k=0 then   writeln('четных нет')else    writeln(k);end.