Обработка строк

[сергей817]

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

[interacia]

// Если скобки расставлены правильно
// (т. е. каждой открывающей соответствует одна закрывающая),
// то вывести число 0. В противном случае вывести или номер позиции,
// в которой расположена первая ошибочная закрывающая скобка, или,
// если закрывающих скобок не хватает, число -1.
Program String69;
var
Dano:string; // вводимая строка
Otvet:integer; // ответ
N1,N:integer; // открывающие и закрывающие скобки
i:integer; // счётчик цикла
begin
// ввод данных
Write('Введите строку: ');
readln(Dano);
// решение
otvet:=0;
N:=0;
N1:=0;
for i:=1  to length(Dano) do //проход по всем символам строки
begin
if Dano[i]='(' then inc(N); // учет открытых скобок
if Dano[i]=')' then inc(N1); // учет закрывающих чкобок
if N<N1 then Begin Otvet:=i; break; end; // если найдена ошибочная закрывающая скобка
end;
if (i=length(Dano))and(N<>N1) then Otvet:=-1; // если закрывающих скобок не хватает, число -1
// вывод результата
Writeln('Ответ: ',otvet);
end.