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

[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.