组合的问题，请大家看下

Question

例如有很多数字。
数组1 有1，2，3
数组2 有4，5，6
数组3 有7，8，9
然后组合  成 
按照  一个数组取一个数字，来组合
如下
1，4，7
1，4，8
1，4，9
1，5，7
1，5，8
1，5，9

。
该怎么写这个算法

Answer 1

var
  i,j,k:Integer;
begin
  for i:=1 to 3 do
  begin
    for j:=4 to 6 do
    begin
      for k:=7 to 9 do
      begin
        memo1.Lines.Add(IntToStr(i)+IntToStr(j)+IntToStr(k));
      end;
    end;
  end;
end;