Краш программы после вызова Inverse_element

#include<iostream>
#include<math.h>
#include <fstream>
 
#include <string>
using namespace std;
int b_fr[1024];
char bigramm[1024][2];
int Max_N[5]={0,0,0,0,0};
int Max[5]={0,0,0,0,0};
int d_gsd=0;
int *solutions_a = new int[d_gsd];
int *solutions_b = new int[d_gsd];
//Считаем частоту биграмм
void Bigramm_frequency(char a[])
{
 
    setlocale( LC_ALL, "" );
    string s;
    float f = 0;
    int l = 0;
    int u=0; 
    int g=0; int d=0; int g_n=0; int d_n=0;
    ifstream f1("D://ciphertext.txt");
    ofstream f2("D://freq.txt");
        if(!f2||!f1)
     {
         cout<<"Cannot open file!";
     }
        cout<<"Counting frequency of bigramms..."<<endl;
    getline(f1, s);
    for(int i= 0; i<31; i++)
   {
      for(int j = 0; j<31; j++)
           {
           bigramm[u][0] = a[i];
           bigramm[u][1] = a[j];
           u++;
           }
   }
  for(int u = 0; u<961; u++)
   {
   for(int k = 0; k<s.length(); k=k+2 )
   {
     if(s[k] == bigramm[u][0] && s[k+1] == bigramm[u][1])
     { f++;
     } 
   }
         b_fr[l] = f;
         f = 0;
         l++;
          for(int i=0;i<5;i++)//находем самые частовстречающиеся биграммы
         {
             int j=i;
             if(Max[j]<=b_fr[l-1])
             {
                 g=Max[j];
                 g_n=Max_N[j];
                 Max[j]=b_fr[l-1];
                 Max_N[j]=l-1;
                 j++;
                 while(j!=5)
                {
                 d=Max[j];
                 d_n=Max_N[j];
                 Max[j]=g;
                 Max_N[j]=g_n;
                 g=d;   
                 g_n=d_n;
    
                 j++;
                 }
                 break;
             }
         }         
    
   }
 
  u = 0;
  /*for(l = 0; l<5; l++)
   {
   f2<<Max_N[l]<<endl;
   u++;
   }
*/
   for(l = 0; l<961; l++)
   {
   f2<<l<<":"<<bigramm[u][0]<<bigramm[u][1]<<": "<<b_fr[l]<<endl;
   u++;
   }
   cout<<"End of counting frequency of bigramms."<<endl;
    f2.close();
    f1.close();
 }
 
int Index_Letter(char t)//индекс буквы
{
  setlocale( LC_ALL, "" );
    int p;
    char alphabet[31]={'а','б','в','г','д','е','ж','з','и','й','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ь','ы','э','ю','я'};
    for(p = 0; p<31; p++)
    {
        if (t == alphabet[p])
        {break;}
    }
    return p; 
}
 
int Index_Bigramm(char a, char b, int m)// индекс биграммы
{
    int number = Index_Letter(a)*m+Index_Letter(b);
    return number;
}
 
int GSD(int a, int mod)
{
    int k;
    int q;
    int r=1;
    int count=0;
    if(mod%a==0)
    {return a;}
    else{
    while(r!=0)
    {
        count++;
        q = mod/a;
        k=r;
        r = mod%a;
        mod=a;
        a=r;
    }
    return k;
    }
}
int Inverse_element(int a, int mod)//обратный элемент
{
    
    int count=0;
    int inverse = 0;
    int r=1;
    int k; int i=2;
    int q;
    int m=mod;
    int y=GSD(a,mod);
    if (y==1)
    {
    int *p = new int[count];
    p[0]=0;
    p[1]=1;
        while(r!=0)
    {
        count++;
        q = mod/a;
        p[i]=p[i-1]*q+p[i-2];
        i++;
        k=r;
        r = mod%a;
        mod=a;
        a=r;
    }
    inverse=pow(-1.0,count-1)*p[count];
 
    return inverse;
    }
    else
    {cout<<"GSD != 1"<<endl;
    return 0;
    }
    
}
 
int Module(int x, int mod)
{
    if(x>=mod)
    {
        int t=x/mod;
        x=x-mod*t;
    }
    if(x<0)
    {
        while(x<0)
        {x=x+mod;}
    }
    return x;
}
 
int Equation(int iy,int jy,int ix, int jx,int mod)
{
    if(iy==jy||ix==jx)
    {return 0;}
    else
    {
    int inverse=0;
    int Max_N[5]={571,75,676,134,602};
    int Max_Bigr[5]={545,417,572,403,168};
    int y=Module(Max_N[iy]-Max_N[jy],mod);
    int x=Module(Max_Bigr[ix]-Max_Bigr[jx],mod);
    d_gsd=GSD(x,mod);
    if(d_gsd==1)
    {
        inverse=Inverse_element(x, mod);;
        solutions_a[0]=Module(inverse*y, mod);
        cout<<solutions_a[0]<<endl;
        solutions_b[0]=Module(Max_N[iy]-solutions_a[0]*Max_Bigr[ix],mod);
        cout<<solutions_b[0]<<endl;
        
    }
    else if(d_gsd>1&&(y%d_gsd)!=0)
    {
        return 0;
    }
    else if(d_gsd>1&&y%d_gsd==0)
    {
        int y1=y/d_gsd;
        int x1=x/d_gsd;
        int mod1=mod/d_gsd;
        inverse=Inverse_element(x1, mod1);
        solutions_a[0]=Module(inverse*y1, mod1);
        solutions_b[0]=Module(Max_N[iy]-solutions_a[0]*Max_Bigr[ix],mod);
        for(int i=1;i<d_gsd;i++)
        {
            solutions_a[i]=Module(solutions_a[i-1]+mod1,mod);
            solutions_b[i]=Module(Max_N[iy]-solutions_a[i]*Max_Bigr[ix],mod);
        }
    }
}
 
}
 
void Decrypt(int a, int b, int m)
{
    setlocale( LC_ALL, "" );
    string s;
    ifstream f1("D://ciphertext.txt");
    ofstream f2("D://decrypt.txt");
        if(!f2||!f1)
     {
         cout<<"Cannot open file!";
     }
    getline(f1, s);
    for(int i=0;i<s.length();i=i+2)
    {
        int f=Inverse_element(a, m*m);
        if(f==0)
        {
            break;
        }
        else
        {
        int d = Index_Bigramm(s[i], s[i+1], m);
        int x = Module(f*(d-b) , m*m);
        f2<<bigramm[x][0];
        f2<<bigramm[x][1];
        }
    }
    f1.close();
    f2.close();
}
 
void Cycle()
{
    setlocale( LC_ALL, "" );
    ofstream f1("D://key.txt");
    for(int i=0;i<5;i++)
    {
        for(int j=0;j<5;j++)
        {
            for(int k=0;k<5;k++)
            {
                for(int f=0;f<5;f++)
                {
                    f1<<i<<"  "<<j<<"  "<<k<<"  "<<f<<endl;
                    int t = Equation(i,j,k,f,961);
                    if(t==0) {f1<<"No solutions!"<<endl;}
                    else if(t==1){
                    f1<<t<<endl;
                    f1<<"a: "<<solutions_a[0]<<endl;
                    f1<<"b: "<<solutions_b[0]<<endl;}
                    else{
                    for(int g=0;g<t;g++)
                    {
                    f1<<"a: "<<solutions_a[g]<<endl;
                    f1<<"b: "<<solutions_b[g]<<endl;
                    }
                    }
                    f1<<"-----------------"<<endl;
                }
            }
        }
    }
}
 
 
void main()
{
    setlocale( LC_ALL, "" );
    char alphabet[31]={'а','б','в','г','д','е','ж','з','и','й','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ь','ы','э','ю','я'};
    //Bigramm_frequency(alphabet);
    
    //Equation(0,2,1,0,961);
    //Cycle();
    Decrypt(654,777,31);
    
    system ("pause");   
}