Считать информацию из файла и сохранить в другой файл

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.

var
  i, jn, j: byte;
  f, f1: text;
  s, s1: string;
 
begin
  //Ввод с файла
  assign(f, 'input.txt');
  assign(f1, 'output.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 := length(s) downto 1 do
        if s[j] = '(' then break;
      if s[j] = '(' then jn := j;
      dec(i, i - jn + 1);
    end;
  end;
  
  
  //Вывод с файла
  rewrite(f1);
  write(f1, s);
  close(f);
  close(f1);
end.

var
i, jn, j: byte; // i - порядковый номер символа строки; jn - номер символа ( в строке; j - порядковый номер символа в строке после удаления
f, f1: text;
s, s1: string;
 
begin
//Ввод с файла
assign(f, 'input.txt');
assign(f1, 'output.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); //удаление из строки s с позиции jn т.е. со скобки "(" до скобки ")"
for j := length(s) downto 1 do //для j от длины строки до 1
if s[j] = '(' then break; //если символ в строке на позиции j равен '(' то закончить этот цыкл
if s[j] = '(' then jn := j; //если символ в строке на позиции j равен '('  то запоминаем номер позиции экой скобки в строке (эта строчка в цикл не входит)
dec(i, i - jn + 1);
end;
end;
 
 
//Вывод с файла
rewrite(f1);
write(f1, s);
close(f);
close(f1);
end.