Почему не работает запись в Паскале по задачке: Написать программу, подсчитывающую

Почему не работает запись в Паскале по задаче: Написать программку, подсчитывающую количество четных цифр, которые делятся на 4, в числе.
Вот запись, исправьте пожалуйста:
program chisla;
var a,b,k:integer;
begin
k:=0;
writeln('Введите число');
readln(a);
repeat
if(a mod 2=0)and(a mod 4=0)then
k:=k+1
until a=0;
writeln('Количество чисел=',k)
end.