كيف ممكن أن أقرأ ملف text وأكتب محتواه في عدة ملفات أخرى

[NOna]

كود :

begin I:=1; AssignFile(NewFile,'C:\File'+IntToStr(I)+'.txt'); Reset(NewFile); Repeat ReadLn(NewFile,Line); IF Copy(Line,1,3)='BY:' Then Begin Line:=''; CloseFile(NewFile); I := I + 1; AssignFile(NewFile,'C:\File'+IntToStr(I)+'.txt'); Reset(NewFile); End; WriteLn(NewFile,Line); Until EOF(NewFile); CloseFile(NewFile); End;

حاولت أن أفتح كل الملفات المقطعه واحد تلو الأخر لمسح جمله مكرره في نهاية كل ملف تبدأ الجمله ب 'by:" وعملت الأتي

ولكن البرنامج لا يشتغل ويعطني I/O خطأ ماذا أفعل؟؟؟