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

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.