Решить на паскале, нужно: дана строка, удалить текст находящийся в скобках (вместе со скобками) я тут начал делать, вот только с удалением у меня ничего не получается, напишите как можно сделать вот как я делал: 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.
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.