请问Pascal火星人的解题思路？火星人用一种非常简单的方式来表示数字——掰手指。火星人只有一只手，但这只手上有成千上万的手指，这些手指排成一列，分别编号为1，2，3……。火星人

Question

请问Pascal火星人的解题思路？
火星人用一种非常简单的方式来表示数字——掰手指。火星人只有一只手，但这只手上有成千上万的手指，这些手指排成一列，分别编号为1，2，3……。火星人的任意两根手指都能随意交换位置，他们就是通过这方法计数的。
一个火星人用一个人类的手演示了如何用手指计数。如果把五根手指——拇指、食指、中指、无名指和小指分别编号为1，2，3，4和5，当它们按正常顺序排列时，形成了5位数12345，当你交换无名指和小指的位置时，会形成5位数12354，当你把五个手指的顺序完全颠倒时，会形成54321，在所有能够形成的120个5位数中，12345最小，它表示1；12354第二小，它表示2；54321最大，它表示120。下表展示了只有3根手指时能够形成的6个3位数和它们代表的数字
现在你有幸成为了第一个和火星人交流的地球人。一个火星人会让你看他的手指，科学家会告诉你要加上去的很小的数。你的任务是，把火星人用手指表示的数与科学家告诉你的数相加，并根据相加的结果改变火星人手指的排列顺序。
也就是noip2004第四题~

求程序和解题步骤，不要复制他人的。
我知道是排列，但是没什么具体思路。
这里是编程菜鸟，求教通俗易懂的解法~

谢谢o(∩_∩)o
最好用递归或回溯。

Answer 1

var
m,n,i:longint;
a:array[1..10000] of longint;
procedure change;
var i,p,min,x,tmp:longint;
begin
p:=n-1;
min:=n;
while (a[p]>a[p+1]) do dec(p);
for i:=p+1 to n do
if (a[i]-a[p]0) then
begin
min:=a[i]-a[p];
x:=i;
end;
tmp:=a[x]; a[x]:=a[p]; a[p]:=tmp;
for i:=p+1 to (n-p)div 2+p do
begin
tmp:=a[i]; a[i]:=a[n+1-i+p]; a[n+1-i+p]:=tmp;
end;
end;
begin
readln(n);
readln(m);
for i:=1 to n do
read(a[i]);
for i:=1 to m do
change;
for i:=1 to n-1 do
write(a[i],' ');
writeln(a[n]);
end.