Помогите пожалуйста с исходником. Вот кусочек моей курсовой, но он на Паскале. Кто может его на С++
перенести, буду очень благодарен.   . Программа выводит на экран n! перестановок чисел от 1 до n.

 program Perestanovki;
      type Pere=array [byte] of byte;
      var N,i,j:byte;
      X:Pere;
      Yes:boolean;
      procedure Next(var X:Pere;var Yes:boolean);
    var i:byte;
    procedure Swap(var a,b:byte);  {обмен переменных}
      var c:byte;
    begin c:=a;a:=b;b:=c end;
      begin
    i:=N-1;
    {поиск i}
    while (i>0)and(X[i]>X[i+1]) do dec(i);
    if i>0 then
      begin
        j:=i+1;
        {поиск j}
        while (j<N)and(X[j+1]>X[i]) do inc(j);
        Swap(X[i],X[j]);
        for j:=i+1 to (N+i) div 2 do Swap(X[j],X[N-j+i+1]);
        Yes:=true
      end
    else Yes:=false
      end;
    begin
      write('N=');readln(N);
      for i:=1 to N do X[i]:=i;
      repeat
    for i:=1 to N do write(X[i]);writeln;
    Next(X,Yes)
      until not Yes
    end.

 

Вообще гворя, это не в эту тему. Ну а так, т. к. сказать наглая копия (в коде абсолютно не разбирался, просто 'перевёл'):


ЗЫ У тебя почему-то x[0] точно не используется, но существует. У тебя нет ошибок?