Сколько раз данная цифра встречается в числе? Паскаль. Через while

Var A,S:integer; B:byte; Begin WriteLn('Введи число'); ReadLn(A); WriteLn('Введи цифру'); ReadLn(B); S:=0; While A>0 do Begin if A mod 10 = B then S:=S+1; A:=A div 10 End; WriteLn(S) End.