Составление слова

[Cawboy]

Привет всем.
Как составить все возможные слова из всех возможных символов.
Спасибо.

[Stilet]

Перебором по словарю )

[eoln]

Вот для слова длиной от 2 до 5.
Работает алгоритм при любом количестве букв, но в паскале будет переполнение массива, т.к. там 1!+2!+...+n! символов. Ну дык переходим тогда просто к динамическим переменным и всё

var
  variant: array[1..256] of string[5];
  i, j, k, c, n, m, st, fin:byte;
  s, s0, s1: string[5];
begin
  s := '12345';
  n := length(s);
  variant[1] := copy(s, 1, 1);
  c := 2; st := 1;
  m := 2; fin := 1;
  for i := 2 to n do begin
     s0 := copy(s, i, 1);
     for j := st to fin do begin
      for k := 1 to c do begin
        s1 := variant[j];
        insert(s0, s1, k);
        variant[m] := s1; {write(variant[m]:8);}
        inc(m);
       end;
     end;
     st := fin + 1;
     fin := m-1;
     inc(c);
  end;
  for i := 1 to m do if length(variant[i])=n then write(variant[i]:8);
  writeln;
  readln
end.