Program mnogo_scobok;
Uses Crt;
var
  s, s1: string;
  inside: boolean;
  i: byte;
begin
    clrscr;
    (*
      write('Please, input string >');
      readln(s);
    *)
    s := 'this (is) the test (of) (input) string';

    s1 := ''; inside := false;
    for i := 1 to length(s) do
      case s[i] of
        '(': inside := true;
        ')': inside := false;
        else
          if inside then s1 := s1 + s[i];
      end;

    writeln(s1);
    writeln;
    writeln('Press any key...');
    readkey;
end.

procedure Print(s: string);
var
  p, q: byte;
begin
  p := pos('(', s);
  if p > 0 then begin
    q := pos(')', s);
    writeln(copy(s, p + 1, q - p - 1));
    Print(copy(s, q + 1, 255));
  end;
end;