дана строчка ответить подходит ли количество раскрывающих скобок покрывающим. пожалуйста

var a:string;

b,c,i:integer;

begin

readln(a);

for i:=1 to length(a) do begin

if a[i]='(' then inc(b);

if a[i]=')' then inc(c);

end; после цикла переменная б - счетчик скобок"(", а с - ")" 

if b=c then writeln('Kolichestvo skobok odinakovo') else writeln('Kol-vo skobok ne odinakovo');

end.