Два текстовых файла. Записать в третий те строки, которые есть и в первом, и во втором файлах (Паскаль)

[dark999]

Program lab8;
uses crt;
var
f,f1,f2:text;
s,s1:String;
begin
  Assign(f,'D:\222.txt');
  reset(f);
  Assign(f1,'D:\333.txt');
  Assign(f2,'D:\444.txt');
  rewrite(f2);
  while(not eof(f))do
  begin
     readln(f,s);
     reset(f1);
     while(not eof(f1))do
     begin
       readln(f1,s1);
       if s = s1 then
           writeln(f2,s1);
     end;
  end;
  Close(f2);
  Close(f1);
  Close(f);
  readln;
end.

Вроде верно, но ошибку выдает!


А вот и условие)

Даны два текстовых файла. Записать в третий только те строки, которые есть и в первом, и во втором файлах

[Serge_Bliznykov]

1) раз Вы в цикле файл f1 открываете - так в цикле и закрывайте его!

2) если вдруг во втором файле эта строка встретится несколько раз, то столько же раз она запишется в выходной файл. Думаю, что так не должно быть. Прерывайте цикл, если нашлось совпадение.

вот, попробуйте такое исправление:

  while(not eof(f))do
  begin
     readln(f,s);
     reset(f1);
     while(not eof(f1))do
     begin
       readln(f1,s1);
       if s = s1 then begin
            writeln(f2,s1);
            break; {прерываем цикл чтения 2-го файла}
       end;
     end;
    Close(f1); {обязательно закрываем второй файл!}
  end;
  Close(f2);
  Close(f);
  readln;
end.

p.s. писал прямо на форуме, разумеется, не проверял.
"Допилите напильником" в случае необходимости!

[dark999]

Что нужно вводить то вообще?

[Karina89]

а что за ошибка???

[Smile:)]

А где именно выдает ошибку?