Составить регулярное выражение, которое будет анализировать переменные

"\\s*var(\\s+(?<variable>[_a-zA-Z]\\w*)\\s*(,\\s*(?<variable>[_a-zA-Z]\\w*))*\\s*:\\s*(?<type>integer|real|boolean|char|"+
        "(array\\s*\\[(\\s*\\+|-)?(\\d+(\\d*))\\s*..\\s*(\\+|-)?(\\d+(\\d*))(\\s*,\\s*(\\+|-)?(\\d+(\\d*))\\s*..\\s*(\\+|-)?(\\d+(\\d*)))*\\s*\\]\\s*of\\s*"+
        "(?<itemtype>integer|real|boolean|char))"+
        "|string\\s*(\\[(\\s*\\+|-)?(\\d+(\\d*))\\s*\\])?"+
        ")\\s*;)+\\s"

// LRegex.cpp : main project file.
 
#include "stdafx.h"
 
#include <conio.h>
#include <locale>
#include <string>
#include <list>
#include <algorithm>
 
#include <cstdio> 
#include <iostream>
#include <fstream>
#include <iomanip>
#include <msclr\marshal_cppstd.h>
 
using namespace std;
using namespace System;
using namespace System::Text::RegularExpressions;
 
int main(/*array<System::String ^> ^args*/)
{
    locale::global(locale(""));
 
    list<string> var;   // Список переменных
    list<string>::iterator vit;
 
    string p, buff;
    int i,n,sr[100],sr1[100],k;
 
    ifstream input;
    input.open("INPUT.TXT");
    if ( !input) {  // Файл не открылся
        Console::WriteLine(L" Не найден файл INPUT.TXT");
        getch();
        return 1;   
    }
    
    n=0;
    k=0;
    sr[k] = 0;
    while (!input.eof()) {  // Читаем файл
        getline(input, buff);
        p += (buff+'\n');
        sr1[k] = p.length();
        sr[k+1] = p.length()+1;
        k++;
    }
    
    
    
    System::String ^program = gcnew String(p.c_str());
 
    Console::WriteLine(program);
    n = program->Length  ;
 
    // Регулярное выражение
    System::String ^pattern = L"\\s*var(\\s+(?<variable>[_a-zA-Z]\\w*)\\s*(,\\s*(?<variable>[_a-zA-Z]\\w*))*\\s*:\\s*(?<type>integer|real|boolean|char|"+
        "(array\\s*\\[(\\s*\\+|-)?(\\d+(\\d*))\\s*..\\s*(\\+|-)?(\\d+(\\d*))(\\s*,\\s*(\\+|-)?(\\d+(\\d*))\\s*..\\s*(\\+|-)?(\\d+(\\d*)))*\\s*\\]\\s*of\\s*"+
        "(?<itemtype>integer|real|boolean|char))"+
        "|string\\s*(\\[(\\s*\\+|-)?(\\d+(\\d*))\\s*\\])?"+
        ")\\s*;)+\\s"; 
 
    Regex ^r = gcnew Regex(pattern, RegexOptions::IgnoreCase);
     
    Match ^m = r->Match(program);
    
    int matchCount = 0;
 
    i = 0;
    
    System::String ^s;
    s = m->Value;
    i = s->Length ;
    
    
    if   (m->Success) 
    {
        
        // Проверяем список переменных
        Group ^g = m->Groups["variable"];   // Получаем переменные
        for (int j = 0; j < g->Captures->Count; j++) 
        {
            
            Capture ^c = g->Captures[j];
            vit = find(var.begin(), var.end(), msclr::interop::marshal_as<std::string>(c->Value));
            if ( vit != var.end() ) {
                Console::WriteLine(L" Ошибка: повтор имени переменной {0} позиция {1}", c, c->Index);
                //i = c->Index;
            }
            else {
                Console::WriteLine(L" Переменная {0}", c);
                
                var.push_back(msclr::interop::marshal_as<std::string>(c->Value));
            }
        }
    
 
    }
    if((n<=i)||(n>=i+7))
    {
        int j;
        for( j=0; j<k; j++)
            if((i>=sr[j]) && (i<=sr1[j])) break;
        
        Console::WriteLine("Ошибка На позиции {0} В строке {1}. Дальнейшая обработка остановлена. ",i,j+2);
    }
    
    getch();
    return 0;
}