Как удалить не нужные строки?

Question

[Kostylev2021]

Нужно удалить из файла rezult все что за 10.01 и записать очищенную строку обратно
Строка в файле rezult : 1 888 10.01 "SOPHY КОРИЦА" Доска гл HSK
вот код

var a,str2:string;
 i,y:integer;
 rezult: text ;
begin 
   AssignFile(rezult,'c:\way\rezult.txt');
   reset(rezult);
   
 while not EOF(rezult) do
   
   
 begin
    readln(rezult,str2);
    i:=length(str2);
    y:=pos('10.01',str2);
    delete(str2,y,i);
    Writeln(rezult,str2);
 end;
end.

пишет файл не открыт на запись .
Как это исправить ?

Answer 1

[Kostylev2021]

Решил сам

var a,str2,str3:string;
 i,y:integer;
 rezult,rezult2: text ;
begin 
   AssignFile(rezult,'c:\way\rezult.txt');
    AssignFile(rezult2,'c:\way\rezult2.txt');
  
    reset(rezult);
    rewrite(rezult2);
 while not EOF(rezult) do
   
   
 begin
   
    readln(rezult,str2);
    i:=length(str2);
    y:=pos('10.01',str2);
    delete(str2,y,i);
   writeln(rezult2,str2);


 end;
 close(rezult); close(rezult2);
end.