Пожалуста исправит ошибки мини компилятора

//---------------------------------------------------------------------------
 
#include <iostream.h>
#include <string.h>
#include <vcl.h>
#include <algorithm>
#pragma hdrstop
 
#include "Unit1.h"
 
using namespace std;
struct tip{
    int number_table, table_line;
    int position;
    string line;
}a[11111];
bool comp(tip x, tip y){
     return x.position < y.position;
}
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
       StringGrid1->Cells[0][0] = "Nomer";
       StringGrid1->Cells[1][0] = "1.Identifikator";
       StringGrid2->Cells[0][0] = "Nomer";
       StringGrid2->Cells[1][0] = "2.Simvol";
       StringGrid3->Cells[0][0] = "Nomer";
       StringGrid3->Cells[1][0] = "3.Operator";
       StringGrid4->Cells[0][0] = "Nomer";
       StringGrid4->Cells[1][0] = "4.Keys";
       StringGrid5->Cells[0][0] = "Nomer";
       StringGrid5->Cells[1][0] = "5.Constanta";
}
 
int N = 0;
AnsiString wrong[] = { "#include", "<iostream>", "#include", "<math.h>", "conio.h", "using", "namespace", "std;",
"int main ()","cin>>", "<<endl;", "}"};
string wrongs[] =  {"#include", "<iostream>", "#include", "<math.h>", "conio.h", "using", "namespace", "std;",
"int main ()", "cin>>","cout<<", "<<endl;", "getch();", "}"};
 
string ide[] = {"i", "S",};
string bel[] = {"#", "{", "}", "<", ">", ";", ",", "(", ")", "=", "<<" ">>"};
string ope[] = {"+", "*", "/", "-"};
string kal[] = {"iostream","include", "int", "using", "main", "return", "std", "namespace", "float","cin", "cout", "system", "pause"};
string cons[] = {"5", "0", "1", "2"};
 
 
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
      string s = Memo1->Text.c_str();
      int n1 = 1; int oshibka =  0;
      for(int i = 0; i < 18; ++ i){
          if(!(s.find(wrongs[i]) <= s.size())){
           oshibka++;
           
      }
       } if(oshibka==0){ ShowMessage("Not wrongs ;");
}
      for(int i = 0; i <=1 ; ++ i)
      {
          if(s.find(ide[i])<=s.size())
          {
              a[N].number_table = 1;
              a[N].table_line = n1;
              a[N].line = ide[i];
              a[N++].position = s.find(ide[i]);
              StringGrid1->Cells[1][n1] = ide[i].c_str();
              StringGrid1->Cells[0][n1++] = IntToStr(n1);
          }
      }
      int n2 = 1;
      for(int i = 0; i<=11; ++ i){
          if(s.find(bel[i]) <= s.size()){
               a[N].number_table = 2;
               a[N].table_line = n2;
               a[N].line = bel[i];
               a[N++].position = s.find(bel[i]);
               StringGrid2->Cells[1][n2] = bel[i].c_str();
               StringGrid2->Cells[0][n2++] = IntToStr(n2);
          }
      }
      int n3 = 1;
      for(int i = 0; i<=3; ++ i){
          if(s.find(ope[i]) <= s.size()){
              a[N].number_table = 3;
              a[N].table_line = n3;
              a[N].line = ope[i];
              a[N++].position = s.find(ope[i]);
              StringGrid3->Cells[1][n3] = ope[i].c_str();
              StringGrid3->Cells[0][n3++] = IntToStr(n3);
          }
      }
      int n4 = 1;
      for(int i = 0; i<=12; ++ i){
          if(s.find(kal[i]) <= s.size()){
               a[N].number_table = 4;
               a[N].table_line = n4;
               a[N].line = kal[i];
               a[N++].position = s.find(kal[i]);
               StringGrid4->Cells[1][n4] = kal[i].c_str();
               StringGrid4->Cells[0][n4++] = IntToStr(n4);
          }
      }
      int n5 = 1;
      for(int i = 0; i<=3; ++ i){
          if(s.find(cons[i]) <= s.size()){
              a[N].number_table = 5;
              a[N].table_line = n5;
              a[N].line = cons[i];
              a[N++].position = s.find(cons[i]);
              StringGrid5->Cells[1][n5] = cons[i].c_str();
              StringGrid5->Cells[0][n5++] = IntToStr(n5);
          }
      }
      sort(a, a + N, comp);
      for(int i = 0; i < N; ++ i) {
          Memo2->Lines->Add("<"+ IntToStr(a[i].number_table) + "," + IntToStr(a[i].table_line)+">");
      }
   }
 
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::CLOSE1Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
 
 
 
 
 
 
 
 
 
 
 
 
 
 
void __fastcall TForm1::Memo1Change(TObject *Sender)
{
 
}
//---------------------------------------------------------------------------