Дан текстовый файл,содержащий некоторые пояснения,заключенные в скобки. Убрать эти пояснения вместе со скобками

uses
  crt;
var
  s, s1 : string;
  t, g : text;
  i, max : byte;
begin
  clrscr;
  write('имя файла : '); readln(s);
  assign(t,s);
  assign(g,'temp.txt');
  {$i-}
  reset(t);
  {$i+}
  If IOResult <> 0 then begin
    writeln('Файл ',s,' не найден.');
    readln;
    exit;
  end;
  rewrite(g);
  max := 0;
  while not eof(t) do begin
    readln(t,s);
    while pos('(',s) <> 0 do delete(s,pos('(',s),pos(')',s)-pos('(',s)+2);
    writeln(g,s);
    If Length(s) > max then max := length(s);
  end;
  reset(g);
  rewrite(t);
  while not eof(g) do begin
    readln(g,s);
    s1 := '';  
    if s[1] <> ' ' then s1 := s1 + s[1];
    for i := 2 to length(s)-1 do begin
      if s[i] <> ' ' then s1 := s1 + s[i];
      if (s[i] = ' ') and (s[i+1] <> ' ') and (s[i-1] <> ' ') then 
        s1 := s1 + ' ';
    end;    
    if s[length(s)] <> ' ' then s1 := s1 + s[i];
    while length(s1) <> max do begin
    i := 1; 
    while i <= (length(s1)-1) do begin
      if (s1[i] = ' ') and (s1[i+1] <> '') then begin 
        insert(' ',s1,i);
        inc(i);
      end;  
      if  length(s1) = max then break;
      inc(i);
    end;
    end;
    writeln(t,s1);
  end;
  close(t);
  close(g);
  readln;
end.

uses
  crt;
procedure DelBrack(var s : string);
var i   : byte;
    bol : boolean;
    s1  : string;
begin
  bol := true; s1 := ''; i := 1;
  while (i <= length(s)) do begin
    If s[i] = '(' then bol := false;
    If bol then s1 := s1 + s[i];
    If s[i] = ')' then begin 
      bol := true;
      inc(i);
    end;  
    inc(i);
  end;
  s := s1; 
end;  
function LongStr(var t : text) : byte;
var max : byte; s : string;
begin
  max := 0;
  while not eof(t) do begin
    readln(t,s);
    If length(s) > max then max := length(s);
  end;
  LongStr := max;
end;
procedure Vyrovn(var s : string; max : byte);
var i : byte; s1 : string;
begin
  s1 := '';  
    if s[1] <> ' ' then s1 := s1 + s[1];
    for i := 2 to length(s)-1 do begin
      if s[i] <> ' ' then s1 := s1 + s[i];
      if (s[i] = ' ') and (s[i+1] <> ' ') and (s[i-1] <> ' ') then 
        s1 := s1 + ' ';
    end;    
    if s[length(s)] <> ' ' then s1 := s1 + s[i];
    while length(s1) <> max do begin
    i := 1; 
    while i <= (length(s1)-1) do begin
      if (s1[i] = ' ') and (s1[i+1] <> '') then begin 
        insert(' ',s1,i);
        inc(i);
      end;  
      if  length(s1) = max then break;
      inc(i);
    end;
    end; 
    s := s1;
end;
var
  s : string;
  t, g : text;
  i, max : byte;
begin
  clrscr;
  write('имя файла : '); readln(s);
  assign(t,s);
  assign(g,'temp.txt');
  reset(t);
  rewrite(g);
  max := 0;
  while not eof(t) do begin
    readln(t,s);
    DelBrack(s);
    writeln(g,s);
  end;
  reset(g);
  max := LongStr(g);
  reset(g);
  rewrite(t);
  while not eof(g) do begin
    readln(g,s);
    Vyrovn(s,max);
    writeln(t,s);
  end;
  close(t);
  close(g);
  readln;
end.