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

Program fufufuf;
var s:string; i:integer;
begin
readln(s);
i:=1;
while s[i]( do i:=i+1; i:=i+1;
while s[i]) do delete(s,i,1);
writeln(s);
end.