[Alegun]

Сообщение от Taras2020

...почему то обрабатывает не так...

Мусора дофига

Код:

...
  while not Eof(ft) do
  begin
   Readln(ft, S);
   Pos1:= 0;

   for i := Length(S) downto 1 do

     if S[i] = '"' then
      if Pos1 = 0 then Pos1:= i+1
       else
        begin
         Delete(S, i, Pos1-i);
         Pos1:= 0;
        end;

     Writeln(ft2, S);

  end; {while}
...

З.Ы. не заметил сразу, что нужно построчно и во всём файле