Обработка строк символов

[Wilda]

Требование к заданию: текст, необходимый для обработки, вводится с клавиатуры.
Составить программу для проверки баланса левых и правых скобок в заданном тексте.

Заранее благодарен.

[kommunist]

что не получатся? проверяй количество скобок в тексте если кол - во правых и левых однаково тогда правильно, если нет непрвильно.

[kommunist]

var s:string;
    i,rang:integer;
begin
     writeln('введите строку');
     readln(s);
     rang:=0;
     for i:= 1 to length(s)do
     begin
          if s[i]='('then inc(rang);
          if s[i]=')'then dec(rang);
          if rang<0 then break;
     end;
     if rang=0 then writeln('скобки расставлены правильно')
               else writeln('скобки поставлены неправильно');
     readln;
end.


end.

[Wilda]

Огромное тебе спасибо.
Очень выручил.