Составьте программу определяющую сколько раз в натуральном числе к встречается цифра равная последней. паскаль авс

...
begin
readln(a);
c:=amod10;
a:=adiv10;  k:=1;
while a>0 do begin
d:=amod10;
if d=c then inc(k);
a:=adiv10;
end;
writeln(k);
end.