Работа с текстом

[Genzal]

Хочу сравнить два текста и написать число повторений слова, но выдает ошибку, подскажите где я ошибся? Ошибка. Пишет так как этот файл используется другим процессом.

uses crt;
var
number,i:integer;
F1,F2:text;
s,wrd:string;
begin
   Assign(F1,'C:\Users\Admin\Documents\SCHOOL.PAK\TEMP\file1.txt');
   Reset(F1);
   Assign(F2,'C:\Users\Admin\Documents\SCHOOL.PAK\TEMP\file2.txt');
   Rewrite(F2);
   While not eof(F1) do begin
      Readln(F1,s);
      Write(F2,s);
   end;
   close(F1);
   write('Введите слово: ');
   readln(wrd);
   reset(F2);
   number:=0;
   while not eof(F2) do begin
      readln(F2,s);
      i:=pos(wrd,s);
      if i<>0 then number:=number+1
      else writeln('0 Поторяющий слова .');
   end;
   close(F2);
   writeln('Число повторений= ',number);
end.

[NetSpace]

забыл в конце закрыть открытые файлы, не?

CloseFile (F2);
и
CloseFile (F1);

[Аватар]

перед reset(F2) попробуй закрыть F2

[Genzal]

Попробовал закрыть файлы, но все равно ошибка.

Сообщение от Аватар

попробуй закрыть F2
__________________

[Genzal]

Что то вообще не понимаю почему файл не работает

[New man]

Сообщение от Genzal

close(F1);
write('Введите слово: ');
readln(wrd);
reset(F2);

Вот тут ты забыл закрыть F2.

[Kamelok]

Сообщение от New man

Вот тут ты забыл закрыть F2.

Спасибо большое, теперь нашёл новую ошибку не считает повторения слов, буду пытаться дальше.

[Аватар]

Ха, понадобилось больше 10 часов, что бы пост #3 осилить и еще такого же пинка в посте #6 )) Что было не понятного в #3 ?