Подсчёт Количества цифр "2", во введённом, ошибка какая-то..

[metoflex]

Программа по подсчёт во введённом числе количества чисел "2".
Если ввести число "2222", то результат выдаёт верный- "4" , но если скажем ввести число "22322", то ничего не происходит впринципе (Или зацикливается, возможно).

Вот текст программки:

program chislo;
var
k,s,m,d :integer;
begin
d:=10;
writeln ('Введите Число!');
readln (m);
Repeat
begin
s:=m mod d;
if s=2
then
begin
K:=K+1;
m:=m-s;
m:= m div d;
end
else
K:=K+0;
end;
Until m=0;
Writeln (k);
readln;
end.

Заранее Спасибо!

[Monte-Kristo]

А не легче число в строку перевести?

var
 st: string;
 ch: integer;
 k: byte;
begin
 k:=0;
 readln(ch);
 str(ch,st);
 for i:=1 to length(st) do
    if  st[i] = '2' then k:=k+1;
 writeln(k);
 readln;
end.

[Monte-Kristo]

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

То есть если s<>2 то у тебя все время будет на else переходить