подсчитать количество и сумму четных четырехзначных чиселPascal ABC

Program abc;
var a,b,c,sum,col:integer;
begin
readln(a);
b:=0;
col:=0;
sum:=0;
while a<>0 do
begin
c:=a;
 while c<>0 do
 begin
 b:=b+1;
 a:=a div 10
 end;
 if b=4 then
col:=col+1;
sum:=sum+a;
readln(a)
end;
writeln(sum);
writeln(col);
end.