[Aziz]

word,wort:string;
word:=...//Вводим слово
repeat

ru:=readLine(res);//Читаем английское слово
en:=readLine(res);//Читаем его перевод
if word=ru then wort:=en;
until (ru='#') or (word=ru);


если в списке руские слова то нифига не находит в поиске!

HOME
ДОМ
YES
ДА

если в списке транслит то находит!

HOME
DOM
YES
DA

подскажите решение для кирилицы плиз!