число открывающихся и закрывающихся

Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке.

...
   {инициализация счётчика}
   count:=0;

   {переберём все символы строки}
   for i:=1 to length(s) do begin
      if s[i] = '{' then begin
         count:=count+1; {увеличим счётчик скобок}
         continue;
      end;
      
      if s[i] = '}' then begin
         count:=count-1;{уменьшим счётчик скобок}
         continue;
      end;
   end;
...

полный вариант программы с дополнительными проверками можно скачать тут