Проверить, имеется ли в линейной записи заданной математической формулы баланс открывающих и закрывающих скобок — Pascal(Паскаль)

Program Balance;
  Uses Crt;
  Var S              : String;
      Dlina, Flag, i : Integer;
BEGIN ClrScr;
  GotoXY(15, 5);
  Write('Введите линейную запись математической формулы :'); 
  GotoXY(32,7); ReadLn(S);
  i:=1; Flag:=0; Dlina:=Length(S);
  While (Flag>=0) and (i<=Dlina) do
    begin
      If S[i] = '(' then Flag:=Flag + 1;
      If S[i] = ')' then Flag:=Flag - 1;
      i:=i+1
    end;
  GotoXY(32, 9); WriteLn('О т в е т');
  GotoXY(15,11);
  If Flag=0 then Write('Есть баланс ') else Write('Нет баланса ');
  WriteLn('открывающих и закрывающих скобок');
  ReadLn
END.