Дано 4579 число. Получить числа, образованные при перестановкой цифр заданного числа. (написать программу на паскале)

Var abcd, a, b, c, d:integer;

begin

abcd:=4579;

a:=abcd div 1000;

b:=abcd div 100 mod 10;

c:=abcd div 10 mod 10;

d:=abcd mod 10;

Writeln (a, b, c, d);

Writeln (a, c, b, d);

Writeln (b, a, c, d);

Writeln (b, c, a, d);

Writeln (c, a, b, d);

Writeln (c, b, a, d);

Writeln (a, d, b, c);

Writeln (a, d, c, b);

Writeln (b, d, a, c);

Writeln (b, d, c, a);

Writeln (c, a, d, b);

Writeln (c, b, d, a);

Writeln (a, b, d, c);

Writeln (a, c, d, b);

Writeln (d, b, a, c);

Writeln (d, b, c, a);

Writeln (d, c, a, b);

Writeln (d, c, b, a);

end.

Громозко, да? Я не помню, как делать это через функцию. Думаю, и так сойдет.