Отладить программу, строковый тип данных (Паскаль)

[Катерина]

Отладить программу, строковый тип данных (Паскаль)

Здраствуйте!Такая задача:Программа должна исключить из строки текст,заключенный в круглые скобки(не считая скобок).Мой исходник:
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!должн ы остаться только внешние скобки!подскажите,что нужно изменить?

 

[Vladimir_S]

подскажите,что нужно изменить?

Могу предложить такой вариант:

Program Pr1;
uses crt;
var
 s:string;
 i,i1,d:byte;
BEGIN
 clrscr;
 writeln('Vvedite stroku:');
 readln(s);
 i:=0;
 Repeat
  Repeat
   Inc(i);
  Until (S[i]='(') or (i=Length(S));
  If (S[i]='(') and (i<Length(S)) then
   begin
    i1:=i;
    Repeat
     Inc(i);
    Until ((i<Length(S)) and (S[i]=')') and (S[i+1]<>')')) or (i=Length(S));
    If (i<Length(S)) or ((i=Length(S)) and (S[i]=')')) then
     begin
      d:=i-i1-1;
      Delete(S,i1+1,d);
      Dec(i,d);
     end;
   end;
 Until i=Length(S);
 WriteLn(S);
 ReadLn;
END.

Работает во всех случаях. Проверено.