Решение

Так как по условию задачи каждый оператор зани­мает не более одной строки, то будем подсчитывать ко­личество открывающих и закрывающих скобок в каж­дой строке.

Program Example_86;

Var F: Text;

k1, k2, n: Integer;

Ch: Char;

Logic, Pp: Boolean;

Begin{С файловой переменной F связываем

файл на диске}

Assign(F, 'TEST.PAS');

Reset(F); {Открываем файл для чтения}

n:=0; {Счетчик количества строк}

Logic:=True; {Пока ошибок не было,

переменная Logic имеет значение True}

While Not EOf (F) Do

{Пока не достигнут конец файла}

Begin

Inc(n); {Увеличиваем счетчик

количества строк}

k1:=0; {Счетчик количества

открывающих скобок}

k2:=0; {Счетчик количества

закрывающих скобок}

Pp:=False; {Переменная Pp

предназна­чена для определения ошибки расста­новки скобок в строке. Она

принимает значение True, когда

обнаруживается ошибка}

While Not Eoln (F) Do {Пока не

достигнут конец текущей строки файла}

Begin

Read(F, Ch); {Читаем очередной

символ строки. Если встретили

открывающую скобку, то увеличиваем

соответствующий счетчик}

If Ch='(' Then Inc(k1);

{Если закрывающая скобка стоит

после открывающей (k1>k2), то

просто уве­личиваем счетчик. Иначе –

устанавли­ваем Pp в True}

If (Ch=')') Then

If (k1>k2) Then Inc(k2)

Else Pp:=True;

End;

{Если не все закрывающие скобки

расставлены (k1<>k2) или одна из

закрывающих скобок стоит раньше

открывающей (Pp=True), то была

ошибка расстановки}

If (k1<>k2) or Pp Then

Begin

Writeln('Ошибка в ',N,' строке');

Logic:=False;

End;

Readln(F);{Переходим на следующую

строку файла}

End;

{Если значение переменной Logic осталось

ис­тинным, то ошибок расстановки не было}

If Logic Then

Writeln('Cкобки расставлены правильно');

Close(F); {Закрываем файл}

Readln;

End.