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;