[Pascal] Permutacje

Witam. Potrzebuje program który utworzy wszystkie permutacje dla podanej tablicy integerów. Znalazłem program w sieci który generuje permutacje dla tablicy integerów ale sam generuje jej zawartośc bez powtórzeń. A ja potrzebuje aby generował permutacje dla podanej tablicy nawet z powtórzeniami. Prosze pomóżcie. Podaje kod programu http://wklej.org/id/43742/

Dodane 24.01.2009 (So) 15:22

wystarczy zamienić Write(t_, ’ ‘) na write(z[t__],’ '), gdzie z[1…n] to moja tablica_

Jednak nie do końca to działa bo jeśli elementy się powtarzają w ciagu to w permutacji wystąpią dwa takie same ciągi a nie o to chodzi. Ktoś wie jak to zmienić?