[ViNT]

Ну, например, ресурсный файл типа

HOME
ДОМ
...
...
#
#

А поиск тогда как-то так:

var
 word:string;
 en:string;
 rus:string;
 found:boolean;
begin
 
 word:=...//Вводим слово
 repeat
  en:=readLine(res);//Читаем английское слово
  rus:=readLine(res);//Читаем его перевод
  if UpCase(word)=en then
  begin
   word:=rus;
   found:=True;
  end;
 until (en='#')or(found);
 //В переменной word будет перевод, или английское слово, если перевод не найден