Кому не сложно с pascalabc? дана строка. некоторые из слов взяты в круглые скобки. написать программу, выводящую исходную строку без скобок.

Var S : String;
Begin
  Readln(S);
  While Pos('(',S)>0 do Delete(S,Pos('(',S),1);
  While Pos(')',S)>0 do Delete(S,Pos(')',S),1);
  Writeln(S);
end.