помогите написать задачу в паскале АBC в файле 1.txt находятся английские слова (записаны столбиком) а в файле 2.txt находятся их русский перевод

+ 0 -

Alysseum

25 июня 2015 г., 15:02:19 (8 лет назад)

const N=100;
var eng,rus:array[1..N] of string;
i:integer;
slovo:string;
file1,file2:text;
begin
  assign(file1,'1.txt');
  assign(file2,'2.txt');
  reset(file1);
  reset(file2);
  for i:=1 to N do
    begin
      readln(file1,eng[i]);{считываем очередное слово из первого файла}
      readln(file2,rus[i]);{считываем перевод этого слова из второго файла}
    end;
  writeln ('Введите английское слово ');
  read(slovo); {пользователь вводит слово}
  for i:=1 to N do
    if slovo=eng[i] then
        Writeln('Слово ',eng[i],' переводится как ',rus[i]);
  close(file1);
  close(file2); {заканчиваем работу с файлами}  
end.

+ 0 -

Alexegorov01

25 июня 2015 г., 16:58:00 (8 лет назад)

const N=1000;
var a,b:array[1..N] of string;
i:integer;
sl:string;
f1,f2:text;
begin
assign(f1,'1.txt');
reset(f1);
for i:=1 to N do
readln(f1,a[i]);
assign(f2,'2.txt');
reset(f2);
for i:=1 to N do
readln(f2,b[i]);
read(sl);
for i:=1 to N do
if a[i]=sl then writeln(b[i]);
close(f1);
close(f2)
end.

Задача принимает до 1000 слов. Чтобы увеличить лимит, поменяй N

Вопросы, недочеты в ЛС