В! сколько раз данная цифра встречается в данном числе решить с repeat. 7 класс

BeginVar a:=ReadInteger('Введите число');Var b:=ReadInteger('Введите цифру ');Var c:integer;
Repeatif a mod 10=b then c+=1;a:=a div 10;until (a=0);print(c);end.