[cash]

Помогите пожалуйста. Решил задачу. Ну не совсем правильно, помогите найти ошибку.
Условие задачи:
Найти все натуральные числа , не превосходящие заданного n, которые делятся на каждую из своих цифр.

var
x,n,i:integer;
begin
write('Vvedite chislo n: ');
readln(n);
for i:=1 to n do
begin
x:=i;
     while x<>0 do
     begin
       if (x mod 10=0)or(i mod(x mod 10)<>0) then
       else writeln(i);
       x:=x div 10;
     end;
end;
readln;
end.

Он у меня после десяток начинает нужные цифры показывать по 2 раза, а ненужные 1 раз. Как убрать этот дубликат?