дана строка ответить...

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

 

var a:string;
b,c,i:integer;
begin
readln(a);
for i:=1 to length(a) do begin
if a='(' then inc(b);
if a=')' then inc(c);
end; {после цикла переменная б - счетчик скобок"(", а с - ")"} 
if b=c then writeln('Kolichestvo skobok odinakovo') else writeln('Kol-vo skobok ne odinakovo');
end.