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

program Balance;
  uses crt;
  var s: string;
  dlina, flag, i : integer;
begin 
clrscr;
  write('Введите текст: '); 
  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;
  writeln('Ответ: ');
  if flag=0 then write('Есть баланс ') else write('Нет баланса ');
  writeln('открывающих и закрывающих скобок');
  readkey;
end.