ПРОГРАММА С ФАЙЛАМИ в чем ошибка?

[artemmmmmmm]

Составить программу, которая сравнивает два файла посимвольно. Создать новый файл, включающий только совпадающие символы этих файлов. Помогите пожалуйста, не пойму в чем ошибка?Turbo Pascal

var F1, F2, Fr : File of Byte; B1, B2 : Byte; 
begin 
Assign(F1, '1file'); Assign(F2, '2file'); Assign(Fr, 'ResFile'); 
Reset(F1); Reset(F2); Rewrite(Fr); 
while Not EOF(F1) and Not EOF(F2) do begin Read(F1, B1); Read(F2, B2); if B1 = B2 then Write(Fr, B1); end; 
Close(F1); Close(F2); Close(Fr); 
end.

[Poma][a]

На вид всё верно..
Но только, наверное, всё-таки указать расширение файлов будет лучше..

[s-andriano]

Честно говоря, не совсем понятно условие.
Например, есть два файла:
1-й: "абвгдежз"
2-й: "бвгдежз"
Что именно должно быть перенесено в третий файл?

[Sciv]

Подозреваю, что цикл надо переписать так:

while Not EOF(F1) do begin
  Read(F1, B1);
  While Not EOF(F2) do begin 
    Read(F2, B2); 
    if B1 = B2 then begin
      Write(Fr, B1); 
      break;
    end;
  end; 
end;

Надо только перед вторым циклом курсор в файле на начало возвращать.

[ViktorR]

s-andriano

Например, есть два файла:
1-й: "абвгдежз"
2-й: "бвгдежз"
Что именно должно быть перенесено в третий файл?

В этом случае совпадений нет и выходной файл пуст.

Возможно, что в условии цикла AND надо заменить на OR.
В таком случае при обнаружении конца одного из файлов задача завершится.


Как-то так, ...