Проверить баланс скобок в тексте программы

#include <iostream.h>
#include <fstream>
#include <conio.h>
 
int main()
{
 
FILE *BAS = fopen("BASIC.txt","r");
 
   if (BAS==NULL)
   {
      cout<<" No File";
   }
 
   else
   {
      ifstream file("BASIC.txt");
      cout<<file.rdbuf();
   }
 
getch();
return 0;
}

#include <iostream.h>
#include <fstream>
#include <conio.h>
 
 
int main()
{
int l=0, r=0;
char ch;
string s;
fstream F;
F.open("BASIC.txt");
 
   if (F==NULL)
      {
      cout<<" No File";
      }
 
   else
      {
         while(!F.eof())
            {
            F.get(ch);
            cout << ch;
               if(ch == '(')
                  l++;
               if(ch == ')')
                  r++;
            }
            cout <<"\n(: " << l << endl << "): " << r << endl;
            if (r>l)
               cout << "')' more than '('" << endl;
            else if (l>r)
               cout << "'(' more than ')'" << endl;
            else if (l==r)
               cout << "'(' equal ')'" << endl;
      }
 
getch();
return 0;
}