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

program fufufuf;var s:string; i:integer;beginreadln(s);i:=1;while s[i]<>'(' do i:=i+1; i:=i+1;while s[i]<>')' do delete(s,i,1);writeln(s);end.