Помогите решить задачу на паскале, очень нужно:Дана строка, удалить текст находящийся в скобках (вместе со скобками)Я тут начал делать, вот только с удалением у меня ничего не получается, напишите как можно сделатьВот как я делал:program zd;uses crt;var s:string; i,l,n,t,y:integer;beginclrscr;writeln(Введите строку);readln(s);l:=length(s);for i:=1 to n do beginif s[i]=( then t:=i; {здесь присваивал номер найденной скобки}if s[i]=) theny:=i; {так же, как и выше}delete (s,t,i); {у меня получается, что он удаляет с открывающей скобки и всё что находится вправо, а левая часть до скобки остается нетронутой}end;writeln(Данный результат =, s);readln;end.

var a, b, i :integer;   
     s :string;
begin
   readln (s);
   a:=pos((,s);
   b:=pos(),s);
   if b=0 then write (ERROR) else
   begin 
      while s[a]) do delete (s,a,1);
      delete (s,a,1);
      writeln (s);
   end;
end.