У натрульного числа найти сумму и количетво четных цифр     

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

while alt;gt;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 (alt;10) and (m=0) then m:=b;
end;

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

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