Унатрульного числа определить сумму и количетво четных цифр и определить сколько раз в числе встречается вторая цифра в pascal

Program p1;
var a,a1,b,k,s,m,l:integer;
begin
readln(a);
a1:=a;
s:=0;
m:=0;

while a<>0 do
begin
b:=a mod 10;
if a mod 2=0 then
begin
 k:=k+1;
 s:=s+b;
end;
a:=a div 10;
if (a<10) and (m=0) then m:=b;
end;

while a1<>0 do
begin
b:=a1 mod 10;
if b=m then l:=l+1;
a1:=a1 div 10;
end;

writeln('Сумма четных цифр: ',s);
writeln('Количество четных цифр: ',k);
writeln('Вторая цифра встречается: ',l,' раз');
end.