关于用delphi实现组合

[firetop818]

请问从100个数据中选出三个数据为一组，要求选出的数据组不能重复，实际上也就是排列组合里的C(100,3)怎么用delphi实现！

[dulei115]

//假设原始数据为
aaa: array[0..99] of Integer;

var
i, j, k: Integer;
begin
for i := 0 to 99 - 2 do
for j : = i + 1 to 99 - 1 do
for k : = j + 1 to 99 do
//输出aaa[i], aaa[j], aaa[k]
end;