Kobinierungs-Algorithmus gesucht

[violinenspieler1000]

Hallo,

ich suche eine möglichst kurze Delphi-Umsetzung eines Algorithmuses, der bei einer gegebene Zahl X alle Zahlen miteinander in allen Möglichkeiten kombiniert und das Ergebnis in ein 2 dimensionales Array speichert:

Bsp:

x=3:

1-2-3
1-3-2
2-1-3
2-3-1
3-1-2
3-2-1


So und das soll jetzt möglichst einfach in eine Delphi-Prozedur umgesetzt werden (für variable X).
Irgendwelche Vorschläge?

Danke,
Thomas