Требуется переписать эти символы в другой файл, выбрасывая при этом символы, расположенные между скобками (). в паскале

program qwe;
var
f1, f2: text;
s: string;

procedure clear(var s:string);
var
k1, k2: integer;
begin
k1:=pos('(', s);
if k1 <> 0 then begin
k2:=pos(')', s);
delete(s, k1, k2-k1+1);
clear(s);
end else exit;
end;

begin
Assign(f1, 'in.txt');
Reset(f1);
Assign(f2, 'out.txt');
Rewrite(f2);

while not eof(f1) do begin
readln(f1, s);
clear(s);
writeln(f2, s);
end;

Close(f1);
Close(f2);
end.