Составить программу, проверяющую своевременное закрытие скобок {},[],() в строке символов. строка состоит из одних скобок этих типов — Pascal(Паскаль)

const
  P1 = '(';
  P2 = ')';
  Q1 = '[';
  Q2 = ']';
  W1 = '{';
  W2 = '}';
var
  StrSrc : String;
  i, PCnt, QCnt,WCnt : Integer;
begin
  Writeln('Введите строку:');
  Readln(StrSrc);
  
  PCnt := 0;
  QCnt := 0;
  WCnt := 0;
  for i := 1 to Length(StrSRc) do begin
    case StrSrc[i] of
      P1 : Inc(PCnt);
      P2 : Dec(PCnt);
      Q1 : Inc(QCnt);
      Q2 : Dec(QCnt);
      W1 : Inc(WCnt);
      W2 : Dec(WCnt);
    end;
  end;
 
  if PCnt = 0 then
    Writeln('Круглые скобки сбалансированы.')
  else
    Writeln('Круглые скобки не сбалансированы.')
  ;
  if QCnt = 0 then
    Writeln('Квадратные скобки сбалансированы.')
  else
    Writeln('Квадратные скобки не сбалансированы.')
  ;
  if WCnt = 0 then
    Writeln('Фигурные скобки сбалансированы.')
  else
    Writeln('Фигурные скобки не сбалансированы.')
  ;
 
  Readln;
end.