нужна помощь с работой

[IceAgainstIce]

Задание: Дана последовательность натуральных чисел, заканчивающаяся нулем. Найти кол-во натуральных чисел, не превосходящих заданного числла N и делящщихся на каждую из своих цифр.

чтото я короче поднакидал...а не выходит ничего...мож подскажете в че ошибка?
Код:

Var a,b,n,s:integer;
F:boolean;
Begin
Write('n=');read(n);
While a <> 0 do
Begin
Write('a=');read(a);
While f OR (a<10) do
Begin
B:=a mod 10;
If a mod b = 0 then
A:=a div 10
Else
F:=false;
End;
If f AND (a<=n) then s:=s+1;
End;
Write('s=',s); read(s);
End.

[IceAgainstIce]

тему можно прикрыть)) разрулил сам