Вопрос по информатике:

(можна пожалуйста в виде программы)
Уничтожить по данной последовательности все символы, расположенные между скобками ( "(...)"). Сами скобки также должны быть
уничтожены. Предполагается, что внутри каждой пары скобок других скобок нет.

program raf105;

var

 s: string;

 pos1,pos2: integer;

begin

 writeln('Введите строку: ');

 readln(s);

 repeat

   pos1:= pos('(',s);

   pos2:= pos(')',s);

   if (pos1<>0) and (pos2<>0)

     then delete(s,pos1,pos2-pos1+1);

 until (pos1=0) or (pos2=0);

 writeln(s);

end.