word,wort:string;
word:=...//Вводим слово
repeat
ru:=readLine(res);//Читаем английское слово
en:=readLine(res);//Читаем его перевод
if word=ru then wort:=en;
until (ru='#') or (word=ru);
если в списке руские слова то нифига не находит в поиске!
если в списке транслит то находит!
подскажите решение для кирилицы плиз!