Помогите решить задачу на паскале, очень нужно:

Дана строка, удалить текст находящийся в скобках (вместе со скобками)

Я тут начал делать, вот только с удалением у меня ничего не получается, напишите как можно сделать

Вот как я делал:
program zd;
uses crt;
var s:string; i,l,n,t,y:integer;
begin
clrscr;
writeln(Введите строку);
readln(s);
l:=length(s);
for i:=1 to n do begin
if s[i]=( then
t:=i; {здесь присваивал номер найденной скобки}
if s[i]=) then
y:=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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.