Две функции по обработке текста (Delphi)

Нужны функции:

function RandomizeChars(StringToRandomize, CharsToRandomize: string; MinCount, MaxCount: Integer): string;

Назначение:

Замена в исходной строке (StringToRandomize) каждого вхождения каждого символа из списка замены на случайное число таких же символов в пределах от MinCount до MaxCount

function SinonimizeString(StringToSinonimize: string; CanStoreOriginal, UseMainOnly: boolean): string;

Назначение:

Замена в исходной строке (StringToSinonimize) всех слов, найденных в списке синонимов на соответствующий случайный синоним.

Более подробно в ТЗ.

Нужно завтра-послезавтра, поэтому в первую очередь жду предложений от тех кто делал такое.

Предложения без цены не рассматриваются. Сообщения в аську, личку, скайп и на мыло игнорируются.

В течение часа-двух с момента публикации выберу исполнителя.

Спасибо за внимание.