Извращенно, но главное, что работает:
uses crt;
var n,d,j,m:integer;
i,k:string;
flag:byte;
begin
read(n,d);
i:='1';
k:='9';
while length(i)begin
i:=concat(i,'0');
k:=concat(k,'9');
end;
for j:=strtoint(i) to strtoint(k) do
begin
flag:=1;
for m:=1 to length(inttostr(j)) do
if strtoint(inttostr(j)[m])=d then
flag:=0;
if flag=1 then 
write(inttostr(j),' ');
end;
end.

Uses crt;
var n,d,x,a,k:integer;
begin
     write('N: '); readln(n);
     write('D: '); readln(d);
     for x:=round(power(10,n-1)) to round(power(10,n)-1) do
     begin
          a:=x;
          k:=0;
          while a>0 do begin
                if a mod 10=d then inc(k);
                a:=a div 10;
          end;
          if k=0 then write(x,' ');
     end;
end.