Все перестановки в антилексикографическом порядке

[BloodyBlade]

Здравствуйте! Помогите пожалуйста выполнить следующее задание:

Напечатать все перестановки чисел 1..n в антилексикографическом порядке(то есть последовательности длины n, в которые каждое из чисел 1..n входит по одному разу).

У меня есть код, написанный на C, а мне бы надо перевести его в pascal. Вот код:

#include <stdio.h>

#define N 4

void swap(int *a, int *b)
{
int t;

t=*a;
*a=*b;
*b=t;
}

void reverse(int * P,int m)
{
int i=0, j=m;
while(i<j)
{
swap(&P[i], &P[j]);
++i;
--j;
}
}

void antilex(int * P,int m)
{
int i;

if(m==0)
{
for(i=0; i<N; ++i)
printf("%d ",P[i]);
printf("\n");
}
else
{
for(i=0; i<=m; ++i)
{
antilex(P,m-1);
if(i<m)
{
swap(&P[i], &P[m]);
reverse(P,m-1);
}
}
}
}

int main()
{
int i;
int P[N];

for(i=0; i<N; ++i)
P[i] = i+1;

antilex(P,N-1);

return 0;
}

Помогите, пожалуйста, буду очень благодарен.