Массив типа int после инкремента (приращения) другой переменной меняет свое значение .магия

UnicodeString * zapk = new UnicodeString[20];
//string * otvet = new string[10];
UnicodeString * vse = new UnicodeString[30];
int pravila[2][1][20]; //1я размерность это количество условий с 'И' к правилу (Если (1) и (2) и (3))
                        //второй на 4 это ответы к части 'то' с 'И' соответственно
                        //и последний просто будет содержать номер правила куда это б можно было записать
int m,n,w;

void __fastcall TZeka::FormCreate(TObject *Sender)
{
zapk[0]="Система условий";
zapk[1]="Представление знаний - модульное";
zapk[2]="Модель знаний логическая";
zapk[3]="Представление знаний - сетевые";
zapk[4]="Граф нагружен и ориентирован";
zapk[5]="Система интелелктуальна";
zapk[6]="Познание по аналогии";
zapk[7]="sdfgh";
zapk[8]="thtyr";
zapk[9]="rthtyj";
zapk[10]="rjkuyk";
zapk[11]="uilol";
zapk[12]="rtyert";
zapk[13]="34y6";
zapk[14]="45u67oi8";
int i;
for (i = 0; i < 12; i++) {
    vse[i]=zapk[i];
}
vse[21]="Продукционные правила"; //..................до 30
vse[22]="Представление знаний - поверхностное";
//теперь правила
//Правило №1
pravila[1][1][1]=1; //представление знаний - модульное
ShowMessage(IntToStr(pravila[1][1][1]));
pravila[2][1][1]=21; //Продукционные правила
pravila[0][1][1]=22; //Ответ: Представление знаний - поверхностное
//конец первого правила
//Правило №2
pravila[1][1][2]=0; //Система условий
ShowMessage(IntToStr(pravila[1][1][2]));
pravila[0][1][2]=21; //Ответ: Продукционные правила
//конец второго правила
//Правило №3
 
}

void __fastcall TZeka::ZapClick(TObject *Sender)
{
//ShowMessage("1 " + IntToStr(pravila[1][1][2]));
int i=7;
w=0;
n=-1;
m=-1;
//ZapInOne->Text=Zap->Items->Strings[Zap->ItemIndex];
//Zap->ItemEnabled[Zap->ItemIndex]=false;
//Zap->State[Zap->ItemIndex]=false;
for (i = 0; i < 7; i++) {
    if (Zap->State[i]) {
        ShowMessage("1.1=" + IntToStr(pravila[1][1][2])+" w="+IntToStr(w));
        w=w+1;
        ShowMessage("1.2=" + IntToStr(pravila[1][1][2])+" w="+IntToStr(w));
        ShowMessage("1.3=" + IntToStr(pravila[1][1][1]));
        ShowMessage("1.4=" + IntToStr(pravila[2][1][1]));
        ShowMessage("1.5=" + IntToStr(pravila[2][1][20]));
        if (n==-1) {
            n=i;
            //ShowMessage("1.2 " + IntToStr(pravila[1][1][2]));
        }
        else
        {
            m=i;
            //ShowMessage("1.3 " + IntToStr(pravila[1][1][2]));
        }
    }
}
//ShowMessage("2 " + IntToStr(pravila[1][1][2]));
if (w==2) {
    for (i = 0; i < 7; i++) {
        Zap->ItemEnabled[i]=false;
        if (i==n || i==m) {
            Zap->ItemEnabled[i]=true;
        }
    }
}
else
{
    for (i = 0; i < 7; i++) {
        Zap->ItemEnabled[i]=true;
    }
}
//ShowMessage("3 " + IntToStr(pravila[1][1][2]));
//ZapInTwo->Text=IntToStr(n) + "=n ,, m=" + IntToStr(m);
if (n!=-1) {
    ZapInOne->Text=zapk[n];
}
else {ZapInOne->Text="";}
if (m!=-1) {
    ZapInTwo->Text=zapk[m];
}
else {ZapInTwo->Text="";}
}

void __fastcall TZeka::DayDushuClick(TObject *Sender)
{
int i=0;
bool otvet=true;
ShowMessage(IntToStr(pravila[1][1][2]));
while (otvet) //цикл поиска ответа
    {
        i++;
        //Haski->Text="1 ";
        //vse[pravila[1][1][i]];
        if (w==1) {
            if (i % 2==0) {
                ShowMessage("правило_ [1][1]["+IntToStr(i)+"]="+IntToStr(pravila[1][1][i]));
                if (pravila[1][1][i]==n) {
                    otvet=false;
                    ShowMessage("false");
                }
            }
        }
    }
//Haski->Text=Haski->Text+"допустим";
//if (s==1) {
    //for (i = 0; i < 20; i++) {
 
    //}
//}
Haski->Text=vse[pravila[0][1][i]];
}