Проверка на синтаксис скобок

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <condefs.h>
#include <conio.h>
#include <stdio.h>
#include <stdlib.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
//----------------СТЕК-------------------------
const int maxsize=50;
char values[maxsize];
int top=0;
 
bool empty()
     {
      if (top==0) return true;
         else return false;
     }
 
void push(char c)
     {
      if (top==maxsize) ShowMessage("Overflow in stack!!!");
         else values[top++]=c;
     }
 
void pop(char &c)
     {
      if (empty()) ShowMessage("Stack is empty!!!");
         else c=values[--top];
     }
 
bool kr(char c)
        {
        if ((c=='(') || (c==')'))
           return true;
        else return false;
        }
 
bool kv(char c)
        {
        if ((c=='[') || (c==']'))
           return true;
        else return false;
        }
 
bool fig(char c)
        {
        if ((c=='{') || (c=='}'))
           return true;
        else return false;
        }
 
//--------------------------------------------------------------
 
//---------------------------ПРОВЕРКА---------------------------
bool Res (char *in)
{
int i=0;
char c;
while (in[i]!='%')
{
        if (empty()==true)
        push(c);
        else if (kr(in[i])==true)
             {pop(c);
                if ((kr(c)==false) || (c==in[i]))
                {
                        push(c);
                        push(in[i]);
                }
              }
        else if (kv(in[i])==true)
              {pop(c);
                 if ((kv(c)==false) || (c==in[i]))
                 {
                 push(c);
                 push(in[i]);
                 }
              }
        else if (fig(in[i])==true)
              { pop(c);
                 if ((fig(c)==false) || (c==in[i]))
                 {
                 push(c);
                 push(in[i]);
                 }
              }
i++;
}
if (empty) return false;
else return true;
}
//----------------------------------------------------
 
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
char formula[100]="";
int  k=0, i=0;
 
strcpy(formula, (Edit1->Text).c_str());
while (formula[i]!=NULL) {i++; k++;}
formula[k+1]='%';
 
if (Res(formula)==true) Label1->Caption="Скобки расставленны верно";
else Label1->Caption="Скобки расставлены НЕ ВЕРНО";
}
 
//---------------------------------------------------------------------------