Дано 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.

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