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

 Program Delenie;
uses crt;
var i,i2,i3,k,k2,m,n:integer;
        check:boolean;
begin
clrscr;
writeln('Vvedite chislo m');
readln(m);
writeln('Vvedite chislo n');
readln(n);
k:=1;
i2:=1;
i:=1;
while i2<=(n-1) do
        begin
        k:=k*10;
        i2:=i2+1;
        end;
while i<m do
        begin
        check:=true;
        i3:=i;
        if i/k>=1 then
                begin
                while i3>1 do
                if i3 mod 10 <> 0 then
                        if i3/(i3 mod 10) <> 1 then
                                check:=false else
                                begin
                                i3:=i3-(i3 mod 10);
                                i3:=i3/10;
                                end;
                end;
        if check=true then writeln(i);
        i:=i+1;
        end;
end.

var n,i,k,v:integer; 
begin
 write('N '); Readln(n);
 write('заданного числа '); Readln(k);
 v:=1; for i:=2 to n do v:=v*10;
 for i:=v to k do begin
  n:=i; while (n>0) do begin if (n mod 10)<>0 then if ((n mod (n mod 10))=0) then break else  n:=n div 10;end;
  if n=0 then writeln(i);
 end; Readln;
end.

var n, i, k, v: Longint;
begin
  Write('N: '); ReadLn(n);
  Write('заданное число: '); ReadLn(k);
  v:=1; for i:=2 to n do v:=v*10;
  for i:=v to k do begin
    n:=i; while (n>0) and (n mod 10<>0) and (i mod (n mod 10)=0) do n:=n div 10;
    if n=0 then WriteLn(i);
  end;
end.