Помогите решить задачу ** паскале, очень нужно:Дана строка, удалить текст находящийся в...

Question

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

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

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

Вот как я делал:
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.

Comments

Случай -----(---- учитывать? (нету правой скобки)

---

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

---

Спасибо всем, кто тоже пытался чем-нибудь помочь ;)

Answer 1

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.

Comments

Спасибо большое, очень помог