Форум АНТИЧАТ - Ошибка i/o error 32

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Ошибка i/o error 32 (https://forum.antichat.xyz/showthread.php?t=160630)

Ошибка i/o error 32

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

Код:

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 - Файл используется другим приложением.

Цитата:

FileCreate('C:\1\part1.txt');
FileCreate('C:\1\part2.txt');

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

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