Помогите с алгоритмом перебора, Задача на заказ Опции

[Kachia]

задан алфавит a1, a2,...an. и упорядоченная выборка
размера m. Построить алгоритм перебора всевозможных
выборок размера m

-язык программирования: Delphi для DOS
-алгоритм нерекурсивный!!!

-Ниже указан мой рекурсивный алгоритм, может быт, он вам поможет.

program combinations;
{$APPTYPE CONSOLE}
Const Simbols : String = 'ab12';
Procedure Generate(S : String; Lev : Integer);
Var I : Integer;
Begin
 If (Lev = 0) Then
  Begin
   Writeln(S); {next password}
   Exit;
  End;
 For I:=1 To Length(Simbols) Do
  Generate(S + Simbols[I], Lev - 1);
End;
Begin
 Generate('', 3); {3 simbols for password}
 Readln;
End.

теги ! (klem4)