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

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