Считать информацию из файла и сохранить в другой файл - Pascal ABC - Ответ 8523260

Var i,jn,j:byte;
    f,f1 file of char;
    
    s,s1:string;
 
Begin
//Ввод с файла
assign (f, 'F:\f.txt');
reset(f);
 readln(f, s);
 
 
    i:=0;
    While i<Length(s) do
    Begin
      inc(i);
      if s[i]='(' then jn:=i;
      if s[i]=')' then
      Begin
        Delete(s,jn,i-jn+1);
        For j:=i downto 1 do
         if s[j]='(' then break;
        if s[j]='(' then jn:=j;
        dec(i,i-jn+1);
            end;
      End;
    End;
 
//Вывод с файла
close(f);
End.
//

Var i,jn,j:byte;
    s:string;
Begin
    write('Введите строку: ');readln(s);
    i:=0;
    While i<Length(s) do
    Begin
      inc(i);
      if s[i]='(' then jn:=i;
      if s[i]=')' then 
      Begin
        Delete(s,jn,i-jn+1);
        For j:=i downto 1 do
         if s[j]='(' then break;
        if s[j]='(' then jn:=j;
        dec(i,i-jn+1);
      End;
    End;
    writeln('Полученная строка: ',s);
    readln;
End.