Oh, ist doch aber nicht schwer:
Delphi-Quellcode:
Procedure BiosenPermutator (aList, aOutput : TList; aCount : Integer);
Begin
aOutput[0] := aList [aCount];
For i := 0
to High (aList)
do
if i<aCount
then
aOutput[i+1] := aList[i]
else if i>aCount
Then
aOutput[i] := aList[i];
End;
Ungestet, aber sollte klappen.