[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 раз. Как убрать этот дубликат?

[march]

Код:

var
 n,i,meter:integer;
 s:string;
 b:boolean;
begin
 write('Vvedite chislo n: ');
 readln(n);
 for i:=1 to n do
  begin
   s:=inttostr(i);
   b:=true;
   for meter:=1 to length(s) do
    begin
     if b=true then
      if strtoint(copy(s,meter,1))<>0 then //как поступать с нулем?
                                                       //здесь ноль игнорируем
       if (i mod strtoint(copy(s,meter,1)))<>0 then
        b:=false;
    end;
   if b=true then
    writeln(i);
  end;
 readln;
end.

Вроде должно работать.