[lmikle]

Маньяк

Полный перебор:

Код:

var
 i1, i2, i3, i4, i5, i6 : integer;
 s : string;
 SL : TStringList;
begin
 SL := TStringList.Create;
 for i1 := 1 To 90 do
   for i2 := 1 To 90 do
    for i3 := 1 To 90 do
     for i4 := 1 To 90 do
      for i5 := 1 To 90 do
       for i6 := 1 To 90 do
         begin
           SL.Add(Format('%d, %d, %d, %d, %d, %d',[i1,i2,i3,i4,i5,i6]));
         end;
 SL.SaveToFile('filename.txt');
 SL.Free;
end;

Если надо исключить повторяющиеся цифры в одной итерации, то расставляешь условия перед добавлением в список.