Удалить часть строки, заключенную в скобки

var
  i, j, IndexStart, IndexEnd: Integer;
  s, Result: String;
  check: Boolean;
begin
  Write('Введите строку ---> ');
  Readln(s);
  Check := True;
 
  while check do
  begin
    Result := '';
    IndexStart := -1;
    IndexEnd := -1;
 
    for i := 1 to Length(s) do
    begin
      if (s[i] = '(') and (IndexStart = -1 )then
        IndexStart := i;
 
      if (s[i] = ')') and (IndexStart <> -1) then
      begin
        IndexEnd := i;
        break;
      end;
    end;
 
    if (IndexStart = -1) or (IndexEnd = -1) then
      check := False
    else
    begin
      for i := 0 to Length(s) do
        if not ((i >= IndexStart) and (i <= IndexEnd)) then
          Result := Result + s[i];
      s := Result;
    end;
  end;
 
  Writeln('Результат --> ', s);
 
  Readln;
end.