Комбинации букв в слове

[Palto]

Господа, добрый день. Запутался с задачей.
Есть слово до 10 букв. Оно заменяется на другое такой же длины, посимвольно.Буква может заменятся, может не заменятся.Если буква в слове не одна, то может заменяться на все замены этой буквы или не изменятся.
Пример молоко -слово, пиджак - замена,
буква М -может быть либо М, либо П. Буква О - или О, или И или Ж или К.

Найти все комбинации замененных слов.
Прошу помощи!

[Bugrimov]

Наработки, язык программирования?

[Palto]

Язык - Delphi.
Работа с рекурсивным алгоритмом, но он работает только до 5 символов(проблема факторизации).

 for i:=1 to Length(k) do
  begin
    s[n]:=k[i];
    if n = 1 then
    mmo1.Lines.Add(s)
    else
    BrutForce(s,n-1);
    if md5(s) = edt2.Text then ShowMessage(s);
  end;

Для букв,которые встречаются не один раз записал в строку индексы, слово как в примере - 246.

for I:=1 to Length(n) do
  begin
    j:=0;
    for k:=0 to p-1 do
    if (pos(n[i],n) <> 0) and (n[p-k] = n[i]) and (p-k>i) then
    begin
       s:=s+n[i]+inttostr(i)+inttostr(p-k);
      end;
    end;
  d:=Length(s);
  for k:=0 to d do
  begin
  for f:=1 to d do
  if (s[d-k] = s[f]) and ((d-k)>f) then
  Delete(s,d-k,1);
  end;

[Palto]

Как бы проще. Ведь букву не надо прогонять по всему алфавиту...
Максимум до 5 вариантов буквы на месте.

[Palto]

Ну же, товарищи-программисты)
Подсобите советом, если подскажите на другом языке тоже будет класс!