Ну, например, ресурсный файл типа
А поиск тогда как-то так:
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 будет перевод, или английское слово, если перевод не найден