Удалить часть строки, стоящую в скобках — Pascal(Паскаль)

пример "ten(past)five" = "ten()five"

uses crt;
var s:string;
    p1,p2:byte;
begin
clrscr;
writeln('Введите строку, содержащую часть текста в круглых скобках');
readln(s);
p1:=pos('(',s);
p2:=pos(')',s);
s:=copy(s,1,p1)+copy(s,p2,length(s)-p2+1);
write(s);
readln;
end.