Дано 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. Громозко, да? Я не помню, как делать это через функцию. Думаю, и так сойдет.