Дословный перевод, Pascal

Нужен переводчик на паскале.

Требования: текстовый файл с текстом, определение языка. Второй текстовый файл для вывода. Третий текстовый файл содержит перевод слов вида

cat = кошка

tea = чай

table = стол

Меню вида

Writeln('Выберите действие: ');

Writeln('1 - Действие 1');

Writeln('2 - Действие 2');

Writeln('3 - Действие 3');

Readln(X);

Case X of

'1': Действие1 ;

'2': Действие2 ;

'3': Действие3 ;

End;

Выбор: перевод из файла (в другой файл), перевод вводимого текста (вывод на экран), добавить запись в словарь, изменить запись в словаре (здесь ввод слова на любом языке, определение языка, вывод на экран перевода, ввод заменяющего слова или перевода).

Перевод должен быть дословным, вида

She drink tea very often.

Она пить чай очень часто.

Жду ваших сроков и сумм (ориентируйтесь на 30 USD).