Pascal abc Паскаль
Из заданной строки удалить те части, которые заключены в скобки вместе со скобками.
Помогите, пожалуйста, срочно

var s:string;

BEGIN

readln(s);

delete(s,pos('(',s),pos(')',s)-pos('(',s)+1);

writeln(s);

end.