Программа проверки правильности расстановки скобок

[glushara]

программа проверяет правильность расстановки скобок.

var
  s: string;
  i,a: integer;
begin
  ReadLn(s);
  a := 0;
  for i := 1 to Length(s) do
  begin
    if (s[i] = '(') and (a >= 0) then
      Inc(a);
    if s[i] = ')' then
      Dec(a);
  end;
  if a = 0 then
    WriteLn('Yes')
  else
    WriteLn('No');

end.

что значит эта строчка.
не обвиняйте в тупизме только)

if (s[i] = '(') and (a >= 0) then

а именно что такое а>=0
что она проверяет?

______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
на первый раз я исправил название темы.
В последующем, темы с названием наподобие "Задача на Делфи" будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[Скандербег]

a>=0 проверяет не отрицательность значения переменной а.
Если а равно или больше нуля, то условие выполняется (a>=0 - True)

[Serge_Bliznykov]

if (s[i] = '(') and (a >= 0) then

читается так:

если i-й символ строки равен открыающей скобке И счётчик скобок больше или равен нулю, тогда увеличить счётчик скобок.

А по сути - наращивание счётчика (открывающих) скобок происходит только в случае положительного значения счётчика. Если встретится закрывающая скобка БЕЗ открывающей. счётчик станет меньше нуля и дальше увеличиваться не будет (условие a>=0 не позволит)

p.s. а я бы не выпендривался и банально прерывал цикл в случае, если a стало меньше нуля. вот так, примерно:

  a := 0;
  for i := 1 to Length(s) do
  begin
    if s[i] = '(' then
      Inc(a);
    if s[i] = ')' then
      Dec(a);
    if a<0 then Break;
  end;
  if a = 0 then
    WriteLn('Yes')
  else
    WriteLn('No');