Напечатать все 4-значные десятичные числа, в которых все цифры разные

Function razl(n:integer):boolean;
var k,m,i,l,s,nk1,nk2 :integer;
begin
k:=0; s:=0; m:=n;
    repeat
     m:=m div 10;
      k:=k+1;
    until m=0;
    m:=n; razl:=true;
    for i:=1 to k-1 do
    begin
    nk1:=n mod 10;
    m:=n;
     while m<>0 do
     begin
       m:=m div 10;
        nk2:=m mod 10;
         if nk1=nk2 then begin razl:=false; break; end;
     end;
    n:=n div 10;
    end;
end;
 
var i: integer;
begin
for i:=1000 to 9999 do
 if razl(i) then writeln(i);
end.

Function razl(n:integer):boolean;
var k,m,i,l,s,nk1,nk2 :integer;
begin
k:=0; s:=0; m:=n;
    repeat
     m:=m div 10;
      k:=k+1;
    until m=0;
    m:=n; razl:=true;
    for i:=1 to k-1 do
    begin
    nk1:=n mod 10;
    m:=n;
     while m<>0 do
     begin
       m:=m div 10;
        nk2:=m mod 10;
         if nk1=nk2 then begin razl:=false; break; end;
     end;
    n:=n div 10;
    end;
end;
 
function step(a,x:integer):integer;
var s,i :integer;
begin
    s:=1;
    for i:=1 to x do s:=s*a;
    step:=s;
end;
 
var n,i,a,b: integer;
begin
write('êîëè÷åñòâî öèôð: '); readln(n);
a:=step(10,n-1); b:=step(10,n)-1;
for i:=a to b do
 if razl(i) then writeln(i);
end.