перестановки

[menjazovutk]

Доброго дня всем!
У меня такая задача: Найти к-ую перестановку. Например, для н=4 и к=2 будет 1243. Но задачу должна решить без рекурсии. Вроде должно работать, но паскаль выдает ошибку. Посмотрите пожалуйста!

program perestanovki;
type poleCisel=array[1..1000] of integer;
type poleDostupnost=array[1..1000] of boolean;
var zasobnik,cislo: polecisel;
    dostupnost: poledostupnost;
    poradcislo,n,k,i,stack:integer;
    stop:boolean;
begin
readln(n);
readln(k);
poradcislo:=0;
stack:=0;
stop:=false;

while (not stop) and (stack>0) do
begin
 if stack=n+1 then
 begin
  inc(poradcislo);
  dec(stack);
  if (poradcislo=k) then
  begin
   for i:=1 to n do
    begin
     write(cislo[i],' ');
    end;
   stop:=true;
  end;
 end
 else
  begin
   zasobnik[stack]:=1;
   dostupnost[zasobnik[stack]]:=true;
   repeat
    inc(zasobnik[stack]);
    if zasobnik[stack]<=n then
    begin
     if dostupnost[zasobnik[stack]]=true then
     begin
      dostupnost[zasobnik[stack]]:=false;
      inc(stack);
      break;
     end;
    end
   else
   begin
     zasobnik[stack]:=0;
     dec(stack);
   end;
 until (zasobnik[stack]>n+1);
 end;
 end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.