Из 20 символов и вывода на экран строки «да»,если в введенном тексте правильно расставлены скобки.в противном случае выводится строка «нет» — 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('Нет ');
  ReadLn
END.