Посчитать количество вхождений в данное натуральное число цифры 9

Var
A,i:longint;
begin
Write('Введие число:');
Readln(A);
i:=0;
while A >=9 do
begin
if A mod 10 = 9 then 
inc(i);
A:=A div 10;
end;
WriteLn('i=',i);
Readln;
end.