Задача на повторяющиеся цифры

[ruslan-gonch]

Использовать Дин.Массивы.

Вводится число k, Вывести k-е по счёту натуральное число, у которого ни одна цифра не повторяется.

Не могу решить уже две недели! При значениях k больше ста, выдаёт неправильный ответ, как я не старался! Пожалуйста, помогите.

[Lawless]

Показывайте наработки, а там подправим

[ruslan-gonch]

Type
 IntArray = Array Of Integer;


Function GetDigits(n: Integer): IntArray;
Var
 x: IntArray;
Begin
 While (n <> 0) Do
  Begin
   SetLength(x, Length(x)+1);
   x[Length(x)-1] := n Mod 10;
   n := n Div 10;
   GetDigits := x;
  End;
End;



Function Kras(x: Integer): Boolean;
Var
j: Array[1..10000] Of Integer;
jk, mm, summ, ii, jj: Integer;
 y: IntArray;
Begin
 summ := 0;
 jk := 1;
 If x < 10 Then
  Begin
   Kras := TRUE;
  End;
 If (x >= 10) And (x < 100) Then
  Begin
   If x Mod 10 = x Div 10 Then
    Begin
     Kras := FALSE;
    End
   Else
    Begin
     Kras := TRUE;
    End;
  End;
 If (x >= 100) Then
  Begin
  y := GetDigits(x);
  For ii := Length(y)-1 DownTo 0 Do
   Begin
    j[jk] :=  y[ii];
    Inc(jk);
   End;
  For jj := 1 To jk-1 Do
   Begin
    For mm := jj+1 To jk Do
     Begin
      If (j[jj] = j[mm]) Then
      Begin
       Inc(summ);
      End;
     End;
    End;
 If summ = 0 Then
  Begin
   Kras := TRUE;
  End
 Else
  Begin
   Kras := FALSE;
  End;
End;
End;



Var
 i: Array[1..100000] Of Integer;
 k, k1, l, gg: Integer;
Begin
 Read(k);
 For gg := 1 To 10000 Do
 Begin
  i[gg] := gg;
 End;
 k1 := 0;
 l := 1;
 While (k <> k1) Do
  Begin
   If Kras(i[l]) Then
    Begin
     Inc(k1);
    End;
   Inc(l);
  End;
 WriteLn(i[l]-1);
End.

[Lawless]

const n = 200;
Function check(a:integer):boolean;
var
 replace:string;
 i,j:integer;
Begin
 str(a,replace);
 for i:= 1 to length(replace) do
  for j:= i+1 to length(replace) do
   if (replace[i] = replace[j]) then begin
    check:= true;
   end
   else begin
    check:= false;
    exit;
   end;
end;
var 
 a: array[1..n] of integer;
 i,k,c:integer;
Begin
 c:= 1;
 for i:= 10 to n do
  if (check(i) = false) then begin
   a[c]:= i;
   inc(c);
  end;
 readln(k);
 writeln(a[k]);
end.

[ruslan-gonch]

Ой... Я тут половины текста не понимаю...
Можно попроще... самые основы динмассивов?