【求助】pascal!将组合改成排列！

【请将此程序（组合）改成（排列）】

【谢谢！感激不尽！】

var
a:array[1..1000]of integer;
i,j,n,r:integer;
begin
readln(n,r);
a[1]:=n;
i:=1;
repeat
if a[i]>r-i then
if i=r then
begin
for j:=1 to r do write(a[j]);
writeln;
dec(a[i]);
end
else
begin
a[i+1]:=a[i]-1;
inc(i);
end
else
begin
dec(i);dec(a[i]);
end
until a[1]=r-1;
end.

pascal求助 PASCAL 求助 Pascal循环作业求助 求助~PASCAL高手来 求助PASCAL题！！！ Pascal 完成程序求助 求助!Pascal题目 求助pascal题: pascal 高精度紧急求助 pascal语言 求助