Строковый тип данных(Паскаль)

[Лилля]

Программа должна исключить из строки текст,заключенный в круглые скобки(не считая скобок).Мой исходник:

Program Pr1;
uses crt;
var s:string;
i:byte;
begin
clrscr;
writeln('vvedite stroku');
readln(s);
if pos('(',s)<>0 then delete(s,pos('(',s)+1,pos(')',s)-pos('(',s)-1);
write(s);
readln;
end.

Программа не работает, например, если перед парными скобками стоит одиночная закрывающая ghjghjgh)ghjghjg(ghjghjg) то строка остается такой же!также не работает если строка например ghjghjgj((ghjghjgjh))ghjgjhgj!должн ы остаться только внешние скобки!что нужно изменить?

[unbanned]

программа немного бредовая, но работает)))

program z_1;

var
  s, si: string;
  i, p, p1: integer;

begin
  writeln('введите строку');
  readln(s);
  p := pos('(', s);
  if p <> 0 then begin
    i := p;
    while i <= length(s) do
    begin
      i := i + 1;
      if copy(s, i, 1) = ')' then 
      begin
        p1 := i + 1;
      end;
    end;
    si := copy(s, p, p1 - p);
    for i := 1 to length(s) do
      if si = copy(s, i, p1 - p) then delete(s, i, p1 - p);
    write(s);
  end;
end.

в твоем варианте исправить проблематично... т.к. определяются позиции первой встречающейся скобки.

[Лилля]

Спасибо,только твоя программа убирает текст внутри скобок заодно вместе со скобками.не подскажешь как сделать,чтобы скобки все-таки оставались?

[unbanned]

там где определяется позиция первой скобки надо прибавить единицу...

program z_1;

var
  s, si: string;
  i, p, p1: integer;

begin
  writeln('введите строку');
  readln(s);   
  if pos('(', s) <> 0 then begin
    p := pos('(', s) + 1;
    i := p;
    while i <= length(s) do
    begin
      i := i + 1;
      if copy(s, i, 1) = ')' then 
      begin
        p1 := i;
      end;
    end;
    si := copy(s, p, p1 - p);    
    if (p1 - p) > 0 then begin
      i := 1;        
      while i <= length(s) do 
      begin
        if si = copy(s, i, p1 - p) then delete(s, i, p1 - p)
        else i := i + 1;
      end;
    end;
    writeln(s);
  end;
end.

ну вот, как-то так

[Лилля]

спасибо