Рекурсия

[RamilFaz]

Написал прогу на задачу:Построить синтаксический анализатор для понятия скобки:

скобки::={ кругл
квадр

кругл::={ A
((кругл)[квадр])

квадр::={ B
[[квадр](кругл)]


помогите исправит,пожалуйста....а то прога вроде компилируется,но видно гдето я неправильно сделал.....

#include<fstream>
#include<iostream>
#include<string>
using namespace std;

bool Skobki();
bool Krugl();
bool Kvadr();
void Shag();
void Oshibka(const string& InName);
string S;

int main()
{
ifstream fin("file.txt");
  if(!fin)
  {
  cout<<"Oshibka otkrytiya fayla."<<endl;
  return 1;
  }
    getline(fin,S);
    if (Skobki())
    {
      cout<<"Pravilniy rezultat:"<<endl;
    }
  return 0;
}

bool Skobki()
{
     if((S[0]=='(')||(S[0]=='A'))
       {
       Krugl();
       return 0;
       }
     if((S[0]=='[')||(S[0]=='B'))
       {
       Kvadr();
       return 0;
       }
     Oshibka("Skobki");
     return 1;
}

bool Krugl()
{
  if(S[0]=='(')
  {
    Shag();
    S[0]='(';
    Krugl();
    S[0]=')';
    S[0]='[';
    Kvadr();
    S[0]=']';
      if(S[0]==')')
      {
        Shag();
        return 0;
      }
    else Oshibka("Krugl");
  }
  if(S[0]=='A')
  {
    Shag();
    return 0;
  }
Oshibka("Krugl");
return 1;
}

bool Kvadr()
{
  if(S[0]=='[')
  {
    Shag();
    S[0]='[';
    Kvadr();
    S[0]=']';
    S[0]='(';
    Krugl();
    S[0]=')';
      if(S[0]==']')
      {
        Shag();
        return 0;
      }
    else Oshibka("Kvadr");
  }
  if(S[0]=='B')
  {
    Shag();
    return 0;
  }
Oshibka("Kvadr");
return 1;
}

void Shag()
{
  S=S.substr(1);
}

void Oshibka(const string& InName)
{
cout<<"Oshibka v:"<<InName<<"with"<<"\""<<S<<"\"\n";
}