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

... 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.