СРОЧНО В ПАСКАЛЕ!!!!!Сколько раз данная цифра встречается в данном числе решить с помощью repeat. 7 класс

PascalABC.NET

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.