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

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.