Задача в Паскале: Ввести целое число и определить, верно ли, что в нём ровно 1 цифра 9.
Помогите плз!

var n,k,i:integer;begin;readln(n);while n>1 dobegin;if n mod 10=9 then inc(k);n:=n div 10;end;if k=1 then writeln(true) else writeln(false);end.