Помогите пожалуйста с Паскалем! Срочно С клавиатуры вводится естественное четырёхзначное

Var
a,k:integer;
begin
repeat
   writeln('введите 4-х значное');
   readln(a);
until (agt;999)and(alt;10000);
   while agt;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.