Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Вывести на экран все символы, расположенные вне этих скобок — Pascal(Паскаль)

Const
 S: string = 'asdfg(1234)fghnbg';
Begin
 writeln(copy(S,pos('(',S)+1,pos(')',S)-(pos('(',S)+1))); 
End.

Const
 S: string = 'asdfg(1234)fghnbg';
Begin
 writeln(copy(S,1,pos('(',S)-1)+copy(S,pos(')',S)+1,length(S)));
End.