Определить правильность расстановок скобок в тексте - Turbo Pascal

Формулировка задачи:

Дан файл содержащий произвольный текст. Определить правильно ли в нем расставлены скобки. (количество "("=количеству ")" )

Код к задаче: «Определить правильность расстановок скобок в тексте - Turbo Pascal»

textual
Skobka:=0;
While not EOF(F) do
Begin
  Readln(F,St);
  For i:=1 to Length(St) do
    If St[i]='(' then Inc(Skobka) else
       If St[i]=')' then Dec(Skobka);
End;
If Skobka=0 then Writeln('Правильно') 
  else Writeln('Неправильно');

10   голосов, оценка 4.100 из 5


СОХРАНИТЬ ССЫЛКУ