Решение задачи String 70

#include <bits/stdc++.h>

using namespace std;

int main()
{
    string s, a = "";
    cin >> s;
    for(int i = 0; i < s.size(); ++i){
        if(s[i] == '(' || s[i] == '{' || s[i] == '[')
            a += s[i];
        else if(s[i] == ')'){
            if(a[a.size() - 1] == '(')
                a.erase(a.size() - 1);
            else{
                cout << i;
                return 0;
            }
        }
        else if(s[i] == ']'){
            if(a[a.size() - 1] == '[')
                a.erase(a.size() - 1);
            else{
                cout << i;
                return 0;
            }
        }
        else if(s[i] == '}'){
            if(a[a.size() - 1] == '{')
                a.erase(a.size() - 1);
            else{
                cout << i;
                return 0;
            }
        }
    }
    if(a.size())
        cout << -1;
    else
        cout << 0;

    return 0;
}

program String70;
var
 S,C:String;
 i,Num1,Num2,Num3,error:integer;
 
begin
  Write('S: ');
  Readln(S);
 
  i:=1;
  error:=0;
  Num1:=0;
  Num2:=0;
  Num3:=0;
  while (i<=Length(S)) do
   begin
    if S[i]='(' then Num1:=Num1+1;
    if S[i]=')' then Num1:=Num1-1;
 
    if S[i]='[' then Num2:=Num2+1;
    if S[i]=']' then Num2:=Num2-1;
 
    if S[i]='{' then Num3:=Num3+1;
    if S[i]='}' then Num3:=Num3-1;
 
    if ((Num1<0) or (Num2<0) or (Num3<0)) and (error=0) then error:=i;
    inc(i);
   end;
 
  if error<>0 then Writeln(error)
   else if ((Num1>0) or (Num2>0) or (Num3>0)) then Writeln(-1)
    else Writeln(0);
end.