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

#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] == '(')
            a += s[i];
        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 String69;
var
 S:String;
 i,Num,Error:integer;
 
begin
  Write('S: ');
  Readln(S);
 
  i:=1;
  error:=0;
  while (i<=Length(S)) do
   begin
    if S[i]='(' then Num:=Num+1;
    if S[i]=')' then Num:=Num-1;
    if (Num<0) and (error=0) then error:=i;
    inc(i);
   end;
 
  if error<>0 then Writeln(error)
   else if Num>0 then Writeln(-1)
    else Writeln(0);
end.