Ошибка i/o error 32

Знаю что глупый вопрос-но всё же, подскажите где ошибка:

Code:

procedure divide();
var raspr:integer;
f,p1,p2:textfile;
text:string;
begin
raspr:=2;
FileCreate('C:\1\part1.txt');
FileCreate('C:\1\part2.txt');
assignfile(f, 'C:\1\main.txt');
assignfile(p1, 'C:\1\part1.txt');
assignfile(p2, 'C:\1\part2.txt');
Reset(f);
reWrite(p1); <--Ошибка вот тут
reWrite(p2);
while not Eof(f) do
begin
ReadLn(f, text);
if raspr mod 2=0 then
WriteLn(p1, text) else
WriteLn(p2, text);
inc(raspr);

end;
CloseFile(f);
CloseFile(p1);
CloseFile(p2);
end;

------------------
SLESH: Когда ты уже научишься код оформлять в теги [ code ] [ /code ]???

 

Input/Output error 32 - Файл используется другим приложением.

эти 2 строки удали
rewrite - так и так создаст файл полюбому))

 

блин, точно, спасибо(= ...уже начал благополучно паскаль забывать...