Проверить сбалансированность скобок в тексте - PascalABC.NET

begin
  var S := ReadLnString('Введите текст, содержащий скобки (),' + NewLine +
  'для проверки их сбалонсированности:');
  var P := 0; // Переменная для проверки баланса скобок
  var C := 0; // Просто для подсчёта количества скобок
  WriteLn;
  for var i := 1 to S.Length do
    case S[i] of
      '(' : begin // Скобка открвающая
              P += 1;
              C += 1;
            end;
      ')' : begin // Скобка закрывающая
              P -= 1;
              C += 1;
              if P < 0 then // Закрывающих скобок больше, чем открывающих
                begin
                  WriteLn('Скобки не сбалансированы: закрывающая скобка встречена раньше открывающей.');
                  Halt;
                end;
            end;
    end; // Прочие символы строки нам не интересны...
  if P > 0 then
    WriteLn('Скобки не сбалансированы: открывающих скобок больше закрывающих.')
  else if C = 0 then
    WriteLn('В ведённом тексте скобок не обнаружено.')
  else
    WriteLn('Скобки сбалансированы.');
end.