Найти все натуральные числа, не превышающие заданного числа N, которые делятся без остатка на каждую из своих цифр

Var N,A,d,k:integer; Begin Write('N = ');ReadLn(N); For N:= 1 to N do     Begin     A:=N;     k:=0;     d:=0;     While A>0 do        Begin        k:=k+1;        if A mod 10 <> 0 then           if N mod (A mod 10) = 0 then d:=d+1;        A:=A div 10;        End;     if k = d then WriteLn(N)     End; End.