Переводчик., С английского на русский. Опции

[Костян]

Привет всем! Для начала хочу поздравить всех защитников Отечества с днем защитника Отечества. Понимаю что грузить Вас в предпраздничный день просто хамство. Но прошу простить меня и выслушать Есть такой вопросик: имеются 2 текстовых файла. Один с словами на английском языке(каждое слово на новой строчке)
другой такой же только на русском. Прога должна загружать оба файла, пользователь вводит слово на англ. языке и если такое есть в первом файле то выводит слово из второго которое распологается по счету на той же строке как и в первом файле! Помогите кто может.
P.S. Я не прошу никого писать прогу за меня(хотя не буду отказыватся), просто обьясните как это можно реализовать

[volvo]

Так и не будет работать... Ты или поменяй чтение из файла на Real (вместо ReadLn, но этот вариант может НЕ сработать), или (что лучше всего) каждое слово в обоих файлах расположи на отдельной строке и оставь ReadLn (этот вариант должен работать)...

Кстати, не забудь, последней строкой в файле должна быть ПУСТАЯ строка, т.е. за последним словом обязательно нажми Enter, иначе оно читаться не будет...

[Костян]

Так и не будет работать... Ты или поменяй чтение из файла на Real (вместо ReadLn, но этот вариант может НЕ сработать), или (что лучше всего) каждое слово в обоих файлах расположи на отдельной строке и оставь ReadLn (этот вариант должен работать)...

Кстати, не забудь, последней строкой в файле должна быть ПУСТАЯ строка, т.е. за последним словом обязательно нажми Enter, иначе оно читаться не будет...

ВСЕ РАВНО ничего не пашет, не подпрапвишь код:

Код

program perevodhik;
type
  translate=record
    ang: string[20];
    rus: string[20];
  end;
var
  dict: array[1..3] of translate;
  i: integer;
  f_rus : text;
  f_ang : text;
  rus, ang: string;
  slovo: string;
begin
  assign(f_ang,'f.txt'); reset(f_ang);
  assign(f_rus,'f1.txt'); reset(f_rus);
  i:=0;
  while not eof(f_ang) do begin
     inc(i);
     with dict[i] do begin
      readln(f_ang,ang);
      readln(f_rus,rus);
     end;
  end;
  readln(slovo);
  for i:=1 to 3 do
    if slovo=dict[i].ang then begin
       writeln(dict[i].rus);
       readln;
       break;
    end;
  end.