Удалить в текстовом файле все слова со скобками вместе со скобками,

uses crt;
procedure DelSkb(var f,g:text);
var s:string;
begin
while not eof(f) do
 begin
  readln(f,s);
  while(pos('(',s)>0)and(pos(')',s)>0) do
  delete(s,pos('(',s),pos(')',s)-pos('(',s)+1);
  writeln(g,s);
 end;
close(f);
close(g);
end;
 
var f1,f2:text;
    nf1,nf2:string;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf1);
nf1:=nf1+'.txt';
assign(f1,nf1);
{$I-} reset(f1);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',nf1,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
write('Имя файла для записи: ');
readln(nf2);
nf2:=nf2+'.txt';
assign(f2,nf2);
rewrite(f2);
DelSkb(f1,f2);
writeln('Файл ',nf1,' переписан в файл ',nf2);
readln
end.

uses crt;
procedure DelSkb(var s:string);
begin
while(pos('(',s)>0)and(pos(')',s)>0) do
delete(s,pos('(',s),pos(')',s)-pos('(',s)+1);
end;
 
var f1,f2:text;
    nf1,nf2,s:string;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf1);
nf1:=nf1+'.txt';
assign(f1,nf1);
{$I-} reset(f1);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',nf1,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
write('Имя файла для записи: ');
readln(nf2);
nf2:=nf2+'.txt';
assign(f2,nf2);
rewrite(f2);
while not eof(f1) do
 begin
  readln(f1,s);
  DelSkb(s);
  writeln(f2,s);
 end;
close(f1);
close(f2);
writeln('Файл ',nf1,' переписан в файл ',nf2);
readln
end.

assign
reset
rewrite
close

close(f);
close(g);
end;

var f1,f2:text;
    nf1,nf2:string;

{$I-} reset(f1);  {$I+}  - прокоментируй , что это?

nf1:=nf1+' (сдесь указать имя?).txt';

var f1,f2:text;
nf1,nf2:string;
begin