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