Массив состоит из символов. Посчитать сколько раз в нём встречаются скобки. Учесть все виды скобок

var
  a,b,c,d,e,k,l:word;
  s:string;
  g,h,f:boolean;
begin
  f:=true;
  g:=true;
  h:=true;
  readln(s);
  for a:=1 to length(s) do
    begin
      if s[a]=')' then
        k:=k+1
      else
        if s[a]='(' then
          l:=l+1;
      if s[a]=']' then
        b:=b+1
      else
        if s[a]='[' then
          d:=d+1;
      if s[a]='}' then
        c:=c+1
      else
        if s[a]='{' then
          e:=e+1;
      if (k>0)or(l>0) then
        if k=l then
          f:=false
        else
          f:=false;
      if (b>0)or(d>0) then
        if b=d then
          g:=false
        else
          g:=false;
      if (c>0)or(e>0) then
        if c=e then
          h:=false
        else
          h:=false;
  end;
      if (f=false) and (g=false) and (h=false) then
        writeln ('Stroka pravilnaya')
      else
        writeln('stroka ne pravilnaya');
  writeln('Скобки (:',k);
  writeln('Скобки ):',l);
  writeln('Скобки {:',e);
  writeln('Скобки }:',c);
  writeln('Скобки [:',b);
  writeln('Скобки ]:',d);
  readln;
end.