Записать в текстовый файл все, кроме того, что в скобках

var
  j: integer;
  f, f1: text;
  s: string;
  z, z1: char;
 
begin
  z := '(';
  z1 := ')';
  j := 1;
  assign(f, 'ff_z.txt');
  assign(f1, 'ff_r.txt');
  rewrite(f);
  // for i := 1 to 5 do 
  //  begin
  //    readln(s);
  //    writeln(f, s);
  //  end;
  writeln(f, 'dfsfre');
  writeln(f, 'fdsefdaq');
  writeln(f, '(ds)ad');
  writeln(f, 'dsawf');
  writeln(f, 'gfdgre'); 
  close(f);
  reset(f);
  rewrite(f1);
  while not eof(f) do
  begin
    readln(f, s);
    while j <= length(s) do 
    begin
      write(f1, s[j]);
      if s[j] = z then begin
        while s[j] <> z1 do 
        begin
        end;
      end;
      j := j + 1;
    end; 
    readln(f);   
  end;
  close(f);
  close(f1);
end.

var
f1,f2:text;
s,temp:string[100];
f,i,j:integer;
BEGIN
f:=0;
assign(f1,'F1.txt');
assign(f2,'F2.txt');
rewrite(f1);
for i:=1 to 5 do
 begin
     readln(s);
     writeln(f1,s);
 end;
close(f1);
temp:='';
reset(f1);
rewrite(f2);
for i:=1 to 5 do
 begin
     readln(f1,s);
     for j:=1 to length(s) do
      begin
          if (s[j]='(') then inc(f)
           else
             if (s[j]=')') then dec(f)
               else
                 if (f=0) then temp:=temp+s[j]; //f отвечает за баланс скобок(если f=0, значит либо все скобки закрыты, либо их нет)
      end;                                             
     writeln(f2,temp);
     temp:='';
     s:='';
 end;
close(f1);
close(f2);
END.