Метод Шеннона фано

void CKripto_1Dlg::Alf_Kode(int i,int j,int k)
{
    int n=i,m=j;//сохраняем внешние границы
    a.Sum1=a.Ver[i];
    a.Sum2=a.Ver[j];
    a.Kode[i]=(int*)realloc(a.Kode[i],(k+2)*sizeof(a.Kode[i]));//под очередные символы кода
    a.Kode[j]=(int*)realloc(a.Kode[j],sizeof(a.Kode[j])*(k+2));//
    a.Kode[i][0]=k+1;
    a.Kode[j][0]=k+1;
    a.Kode[i][k+1]=1;
    a.Kode[j][k+1]=0;
    while(i<j-1)
    {
        if(a.Sum1<=a.Sum2)
        {
            a.Sum1+=a.Ver[i+1];
            a.Kode[i+1]=(int*)realloc(a.Kode[i+1],sizeof(a.Kode[i+1])*(k+2));
            a.Kode[i+1][k+1]=1;
            a.Kode[i+1][0]=k+1;
            i++;
        }
        else
        {
            a.Sum2+=a.Ver[j-1];
            a.Kode[j-1]=(int*)realloc(a.Kode[j-1],sizeof(a.Kode[j-1])*(k+2));
            a.Kode[j-1][k+1]=0;
            a.Kode[j-1][0]=k+1;
            j--;
        }
    }
    int t=k;
    if(i-n>=1)
        Alf_Kode(n,i,k+1);
    if(m-j>=1)
        Alf_Kode(j,m,t+1);
}