[Стронглав]

Здравствуйте. Такая задача. Даны к примеру три числа (1,2,3) нужно написать программку, которая создает максимально возможное число комбинаций из этих чисел, к примеру 123, 122,331 и т.д. То есть не просто перестановки но и с повторяющимися числами. вот написал но что-то не то, посоветуйте, кто что знает.

var
 a: array[1..3] of integer;
 b: array[1..3] of real;
 z: array[1..9] of integer;
 i,k:integer;
 begin
 for i:=1 to 3 do
 if a[i]<a[i+1]  then
  begin
  z[k]:=a[i];
 end;
 write(z[i],'');
 end.