[im_zorg]

Оо как тут все сложно..
Program ReTranslit;
var
itemId,i,id : integer;
cmdNext : command;
cmdQuit : command;
name : string;
slovo1,slovo2:array [0..9] of string;

procedure loading;//процедура загрузки слов в словарь, это сделаешь сам я пока вручную пропишу 10ть слов
begin
i:=0;
slovo1[i]:='Привет';slovo2[i]:='Hello'; i:=i+1;
slovo1[i]:='My';slovo2[i]:='Myqw'; i:=i+1;
slovo1[i]:='Имя';slovo2[i]:='Name'; i:=i+1;
slovo1[i]:='Начало';slovo2[i]:='Begin'; i:=i+1;
slovo1[i]:='Конец';slovo2[i]:='End'; i:=i+1;
slovo1[i]:=' и т.д.';slovo2[i]:='и т.д.'; i:=i+1;
slovo1[i]:='';slovo2[i]:=''; i:=i+1;
slovo1[i]:='';slovo2[i]:=''; i:=i+1;
slovo1[i]:='';slovo2[i]:=''; i:=i+1;
slovo1[i]:='';slovo2[i]:=''; i:=0;
end;

begin
loading;
ShowForm;
itemId := FormAddTextField('Введите слово', '', 20, TF_ANY);
cmdNext := CreateCommand('ОК', CM_OK, 1);
AddCommand(cmdNext);
repeat until GetClickedCommand = cmdNext;
name := FormGetText(itemId);
for i:=0 to 9 do if slovo1[i]=name then begin id:=i; break; end;
ShowCanvas;
DrawText(slovo2[id], 0, 0);
Repaint;
cmdQuit := CreateCommand('Quit', CM_EXIT, 1);
AddCommand(cmdQuit);
repeat until GetClickedCommand = cmdQuit;
end.
Потом если захочешь добавишь авторегистр слова которое пишет пользователь, загрузку из тхт сделай сам.. я с тела этот пример писал(если что не работает простите..), так же советую добавить перевод с русского на английский и наоборот, делается это с помощью dolang:boolean додумаешься тоже сам))))