Комбинация перестановки чисел

[Fairy dreams]

Результат перестановки выдает не верно.
Задание: имеется натуральное число n, состоящее из пяти цифр. Требуется вывести все возможные комбинации полученных в результате перестановки местами этих цифр.

Program n1; 
Uses Crt; 
Var a,b:array[1..5] of byte; 
n,i,k,j,d:integer; 
begin 
Clrscr; 
write('Введите пятизначное число: '); 
readln(n); 
a[5]:=n mod 10; 
a[4]:=n div 10 mod 10; 
a[3]:=n div 100 mod 100 mod 10; 
a[2]:=n div 1000 mod 1000 mod 100 mod 10; 
a[1]:=n div 10000 mod 10000 mod 1000 mod 100 mod 10; 
writeln('Результат перестановки:'); 
for d:=1 to 4 do begin 
write(d,') '); 
for i:=1 to 5 do begin 
if i<5 then b[i]:=a[i+1]; 
if i=5 then b[i]:=a[1]; 
end; 
for j:=1 to 5 do begin 
write(b[j]); 
a[j]:=b[j]; 
end; 
writeln; 
end; 
write('Для выхода нажмите Enter'); 
readln; 
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Dush]

у вас производится круговая перестановка, а вам надо все комбинации из этих цифр?
и если исходные цифры повторяются - надо ли делать проверку на повторение значения?

[Leshii]

Я так понимаю отсюда взято .Ну 120 перестановок будет как-то много.Я думаю и нескольки достаточно.Скорее как сказал Dush просто добавить сюда же иные варианты перестановок.

[Fairy dreams]

Сообщение от Dush

у вас производится круговая перестановка, а вам надо все комбинации из этих цифр?
и если исходные цифры повторяются - надо ли делать проверку на повторение значения?

Да. Нужно вывести все комбинации этих цифр. Их вроде около 120. Я увы не знаю как это сделать
проверку можно и не делать

[Fairy dreams]

Сообщение от Leshii

Я так понимаю отсюда взято .Ну 120 перестановок будет как-то много.Я думаю и нескольки достаточно.Скорее как сказал Dush просто добавить сюда же иные варианты перестановок.

Не исключено что и отсюда взято .
Да согласна с вами. 120 действительно многовато, но все же сделать нужно. хоть половину