При передаче в функцию динамического массива, в массиве искажаются данные

#include <stdio.h>
#include <string.h>
#include <conio.h>
#include <math.h>
#include <stdlib.h>
 
 
#define n 94 //Є®«ЁзҐбвў® бЁ¬ў®«®ў ў **Ј«Ё©бЄ®¬ *«д*ўЁвҐ 32 Ї® 126 Є®¤ бЁ¬ў®«*  в*Ў«Ёжл ASCII
 
void swap (long *w, char *CHAR, long i, long j) //®Ў¬Ґ* н«Ґ¬Ґ*в®ў ¬*ббЁў*
 {
  long t; char T;
  t=w[i];
  w[i]=w[j];
  w[j]=t;
  T=CHAR[i];
  CHAR[i]=CHAR[j];
  CHAR[j]=T;
 }
 
void shake (long *x, char *CHAR) //¤«п гЇ®а冷зҐ*Ёп ¬*ббЁў* ўҐа®пв*®б⥩ Ї® ў®§а*бв**Ёо ЁбЇ®«м§гҐ¬ 襩ЄҐа*го б®авЁа®ўЄг
  {
   long L,R,N,S,j,i;
   L=0;  //«Ґў*п Ја**Ёж* ¬*ббЁў*
   R=n-1;  //Їа*ў*п Ја**Ёж* ¬*ббЁў*
   N=n-1;    //Є®«ЁзҐбвў® н«Ґ¬Ґ*в®ў ¬*ббЁў* (*㬥а*жЁп б 0)
   while (L<R)
   {
    for(j=R; j>L; --j)  //Їа®е®¤ бЇа*ў* **«Ґў®
    {
     if (x[j]>x[j-1])
     {
      swap(x,CHAR,j,j-1);
      N=j;
     }
    }
    L=N;
     for (j=L; j<R; ++j)  //Їа®е®¤ б«Ґў* **Їа*ў®
     {
      if (x[j]<x[j+1])
      {
       swap(x,CHAR,j,j+1);
       N=j;
      }
     }
     R=N;
   }
   for (i=0,S=1;i<n-2;++i)
   {
   if (x[i]<x[i+1])
     S++;
   }
  if (S>1)
   {
    printf("\n ЋиЁЎЄ*, ¬*ббЁў *Ґ ®вб®авЁа®ў**, Є®«ЁзҐбвў® бҐаЁ© Ў®«миҐ 1 \n");
    getch();
   }
  }
 
void Down(long k,long j,int **C,long *L)
{
 long i,m,l=0,x;
 int *S;
 S=(int *)malloc((k+1)*sizeof(int));
 if (S==NULL)
 {
  puts("Њ*ббЁў S *Ґ ᮧ¤**!");
  getch();
  return;
 }
 l=0;
 for (m=0;m<k;m++)
   S[m]=C[j][m];
 l=L[j];
 for (i=j;i<k-2;i++) //б¤ўЁЈ ўўҐае бва®Є ¬*ваЁжл ‘
 {
  for (m=0; m<k; m++)
   {
    if ((C[i+1][m]==0)||(C[i+1][m]==1))
     C[i][m]=C[i+1][m];
   }
  L[i]=L[i+1];
 }
 for (m=0; m<l; m++) // ў®ббв**®ў«Ґ*ЁҐ ЇаҐдЁЄб* Є®¤®ўле б«®ў Ё§ ¬*®¦Ґбвў* S
 {
  C[k-2][m]=S[m];
  C[k-1][m]=S[m];
 }
 C[k-2][l]=0;
 C[k-1][l]=1;
 L[k-2]=l+1;
 L[k-1]=l+1;
 free(S);
 }
 
long Up (long k, float q, float *p)
{
long i=0,j=0;
for (i=k-2; i>0; --i)
{
 if (p[i-1]<=q)
  p[i]=p[i-1];
 else
 {
  j=i;
  break;
 }
}
p[j]=q;
return j;
}
 
void Huffman(long k, float *p, int **C,long *L)
{
 long j; float q;
 
if (k==2)
 {
  C[0][0]=0;
  L[0]=1;
  C[1][0]=1;
  L[1]=1;
 }
 else
 {
  q=p[k-2]+p[k-1];
  j=Up(k,q,p);
  Huffman (k-1,p,C,L);
  Down(k,j,C,L);
 }
}
 
void create_Mas1 (long *L, long N)
{
 L=NULL;
 L=(long *)malloc(N*sizeof(long)); //ᮧ¤**ЁҐ ¬*ббЁў* ¤«Ё** Є®¤®ўле б«®ў
 if (L==NULL)
 {
  puts("Ћ¤*®¬Ґа*л© ¬*ббЁў *Ґ ᮧ¤**!");
  getch();
  return;
 }
}
 
void create_Mas2 (int **C,long N)
{
 long i;
 C=NULL;
 C=(int**)malloc(N*sizeof(int*)); //ᮧ¤**ЁҐ ¤Ё**¬Ёз ¬*ббЁў* гЄ*§*⥫Ґ© ** гЄ*§*⥫Ё **з*«* бва®Є
 if (C==NULL)
 {
  puts("Њ*ббЁў гЄ*§*⥫Ґ© бва®Є ‘ *Ґ ᮧ¤**!");
  getch();
  return;
 }
 for (i=0;i<N;i++)//ўл¤Ґ«пҐ¬ Ї*¬пвм Ї®¤ N ¬*ббЁў®ў -бва®Є Ї® N н«Ґ¬Ґ*в®ў ў Є*¦¤®¬
 {
  C[i]=(int *)malloc(N*sizeof(int*));
  if (C[i]==NULL)
  {
   puts("Њ*ббЁў ‘ *Ґ ᮧ¤**!");
   return;
  }
  }
}
 
float Av_Haffman (float *p, float *p1, long N, int **C, long *L)
{
 float Lh;//б।*пп ¤«Ё** б«®ў*
 long i;//бзҐвзЁЄЁ
 Huffman (N,p,C,L);
 Lh=0;
 
 for (i=0; i<N; i++) //а*ббзҐв б।*Ґ© ¤«Ё**л Ї®бв஥**®Ј® Є®¤* •*дд¬***
 {
  Lh+=1.0*L[i]*p1[i];
 }
 return Lh;
}
 
void print (char *CHAR_S, long *ws, long *L, int **C, long N)
{
 FILE *fw;
 long i,j,l;
 fw=fopen("COD_H.txt","a");//§*ЇЁбм ў д*©«
 if (fw==NULL)
  {
   printf("\n ЋиЁЎЄ* ᮧ¤**Ёп д*©«*! \n");
   getch();
   exit(0);
  }
 printf ("\n ‘Ё¬ў®«   —*бв®в*   Љ®¤®ў®Ґ б«®ў®   „«Ё*** Є®¤®ў®Ј®");
 printf ("\n                                    б«®ў*");
 fprintf(fw,"\n Symbol   Frequency   Codeword   Codeword lenght");
 for(i=0; i<N; i++)
 {
  printf ("\n %c        %d          ", CHAR_S[i], ws[i] );
  fprintf(fw, "\n %c        %d          ", CHAR_S[i], ws[i] );
  l=L[i];
  for (j=0;j<l;j++)
    {
     printf ("%d",C[i][j]);
     fprintf(fw,"%d",C[i][j]);
    }
  printf ("                   %d",L[i] );
  fprintf(fw,"                   %d",L[i] );
 }
}
 
 
float Shennon (float *p, long N,char *CHAR_S, long *ws, int **C, long *L)
{
 float *Q=NULL,    //¬*ббЁў ¤«п ўҐ«ЁзЁ* Qi
       Lsh=0;
 long  l,i,j;//бзҐвзЁЄЁ
 Q=(float *)malloc(N*sizeof(float)); //ᮧ¤**ЁҐ ¬*ббЁў* ¤«Ё** Є®¤®ўле б«®ў
 if (Q==NULL)
 {
  puts("Ћ¤*®¬Ґа*л© ¬*ббЁў *Ґ ᮧ¤**!");
  getch();
  return 0;
 }
 Q[0]=0.0;
 for (i=1; i<N; i++)
 {
  Q[i]=Q[i-1]+p[i-1];
 }
 for (i=0; i<N; i++)
 {
  L[i]=-ceil(log(p[i])/log(2.0));
  if(1.0/pow(2,-1*L[i])>p[i])
    L[i]++;
  if (i==0)
    l=1;
  else
    l=L[i-1];
  if (1.0/pow(2,-1.0*l)<p[i])
   printf("\n ЌҐЇа*ўЁ«м*® а*ббзЁв*** ¤«Ё** Є®¤®ў®Ј® б«®ў* ?Ґ**®**!!!");
 }
 for (i=0; i<N; i++)
 {
  for (j=0;j<L[i];j++)
  {
   Q[i]=Q[i]*2.0;
   C[i][j]=(int)(Q[i]);
   if(Q[i]>=1.0)
    Q[i]=Q[i]-1.0;
  }
 }
 
 for (i=1; i<N; i++)
 {
  Lsh+=p[i]*L[i];
 }
 print (CHAR_S,ws,L,C,N);
 free(Q);
 return Lsh;
}
 
long Med (long L,long R, float *p)
{
 float Sl=0, //б㬬* н«Ґ¬Ґ*в®ў ЇҐаў®© з*бвЁ ¬*ббЁў*
       Sr=0; //б㬬* н«Ґ¬Ґ*в®ў ўв®а®© з*бвЁ ¬*ббЁў*
 long i,m=0;
 
 for (i=L; i<=R-1; i++)
  Sl+=p[i];
 Sr=p[R];
 m=R;
 while (Sl>Sr)
 {
  m--;
  Sl-=p[m];
  Sr+=p[m];
 }
 return m;
}
 
 
void Fano (long L,
        long R,
        long k,
        float *p,
        int **C,
        long *Length)
{
 long i,m;
 
 if (L<R)
  {
   k++;
   m=Med(L,R,p);
   for (i=L;i<=R;i++)
   {
    if (i<m)
    {
     C[i][k]=0;
     Length[i]++;
    }
    else
    {
     C[i][k]=1;
     Length[i]++;
    }
   }
  Fano(L,m-1,k,p,C,Length);
  Fano (m,R,k,p,C,Length);
  }
}
 
float Av_Fano (float *p, long N,char *CHAR_S, long *ws, int **C, long *Length)
{
 float Lf=0;//б।*пп ¤«Ё** Є®¤®ў®Ј® б«®ў*
 long  i;//бзҐвзЁЄЁ
 Fano(0,N-1,-1,p,C,Length);
 for (i=1; i<N; i++)
 {
  Lf+=p[i]*Length[i];
 }
 print (CHAR_S,ws,Length,C,N);
 return Lf;
}
 
 
void main()
{
 FILE  *f,*fw;
 char  key, ch,
    fname[50], //¬*ббЁў ¤«п еа**Ґ*Ёп Ё¬Ґ*Ё д*©«*
    CHAR[n],  //¬*ббЁў ўбҐе бЁ¬ў®«®ў **Ј«Ё©бЄ®Ј® *«д*ўЁв*
    *CHAR_S=NULL, //¬*ббЁў ¤«п еа**Ґ*Ёп бЁ¬ў®«®ў ўбваҐз*ойЁебп ў д*©«Ґ
    COD,COD1; //ЇҐаҐ¬Ґ***п ¤«п ўлў®¤ Є®¤®ўле б«®ў ** ЇҐз*вм
 long  i,j,m,N,B, //ЇҐаҐ¬Ґ**лҐ бзҐвзЁЄЁ
    w[n], //з*бв®вл Ї®пў«Ґ*Ёп бЁ¬ў®«®ў ў ⥪бвҐ
    *ws=NULL,//®вб®авЁа®ў***л© ¬*ббЁў з*бв®в
    *L=NULL; //¬*ббЁў ¤«Ё* Є®¤®ўле б«®ў
 float *p=NULL,*p1=NULL,//¬*ббЁў ўҐа®пв*®б⥩ Ї®пў«Ґ*Ёп бЁ¬ў®«* ў ¤***®¬ ⥪бвҐ
    H=0.0,//н*ва®ЇЁп ?Ґ**®**
    Lh,//б।*пп ¤«Ё*** Є®¤®ў®Ј® б«®ў*  •*дд¬***
    Lsh, //б।*пп ¤«Ё*** Є®¤®ў®Ј® б«®ў* ?Ґ**®**
    Lf,// б।*пп ¤«Ё*** Є®¤®ў®Ј® б«®ў* ”**®
    s;//Є®*ва®«м Їа*ўЁ«м*®бвЁ а*бзҐв* ¬*ббЁў* ўҐа®пв*®б⥩
 int **C=NULL; //¬*ваЁж* н«Ґ¬Ґ*в*а*ле Є®¤®ў
 
 memset(CHAR,0 ,sizeof(CHAR));
 for(i=0;i<n;i++)//§*Ї®«*Ґ*ЁҐ ¬*ббЁў* Є®¤*¬Ё бЁ¬ў®«®ў б®Ј«*б*® в*Ў«ЁжҐ ASCII
 {
  CHAR[i]=32+i;
 }
 
 fw=fopen("COD_H.txt","w");//ᮧ¤**ЁҐ д*©«* ¤«п ўлў®¤* Ё*д®а¬*жЁЁ
 fclose(fw);
 do
 {
  system("cls");
  m=0;  //§**зҐ*Ёп ®Ў*г«повбп ¤«п ЁбЄ«озҐ*Ёп ®иЁЎ®Є ЇаЁ ®вЄалвЁЁ ¤агЈ®Ј® д*©«*
  N=0; //Є®«ЁзҐбвў® бЁ¬ў®«®ў ў ⥪б⥠ЁбЄ«оз*п Ї®ўв®аҐ*Ёп
  memset(w,0.0,sizeof(w));
  memset(fname,0,sizeof(fname));
  printf ("\n ‚ўҐ¤ЁвҐ **Ё¬Ґ*®ў**ЁҐ д*©«* Ё Їгвм Є *Ґ¬г. \n");
  fgets(fname,sizeof(fname),stdin);
  m=strlen(fname);
  fname[m-1]=0;
  f=fopen(fname,"rt") ;
  if (f==NULL)
  {
   printf("\n ЋиЁЎЄ* ®вЄалвЁп д*©«*! \n");
   getch();
   exit(0);
  }
  B=0; // Є®«ЁзҐбвў® бЁ¬ў®«®ў ў ⥪бвҐ
  while(!feof(f))
  {
   ch=getc(f);    //бзЁвлў**ЁҐ бЁ¬ў®«®ў
    B++;
    for (j=0;j<n;j++)
    {
     if (ch==CHAR[j])
     {
      i=j;
      break;
     }
    }
    w[i]++;
 }
 w[i]--;
 B--;
 
 shake(w,CHAR);//б®авЁа®ўЄ* ¬*ббЁў* з*бв®в
 
 for (i=0; i<n; i++)
 {
  if (w[i]!=0)
   N++;
 }
 ws=(long *)calloc(N,sizeof(long));
 if (ws==NULL)
 {
  puts("Њ*ббЁў ws *Ґ ᮧ¤**!");
  getch();
  return;
 };
 
 CHAR_S=(char *)calloc(N,sizeof(char));
 if (CHAR_S==NULL)
 {
  puts("Њ*ббЁў CHAR_S *Ґ ᮧ¤**!");
  getch();
  return;
 }
 for (i=0; i<N; i++)//Є®ЇЁа®ў**ЁҐ бЁ¬ў®«®ў б з*бв®в®© Ї®п«ўҐ*Ёп >0 ў ¤Ё**¬ЁзҐбЄЁ© ¬*ббЁў
 {
   ws[i]=w[i];
   CHAR_S[i]=CHAR[i];
 }
 
 
 p=(float *)calloc(N,sizeof(float)) ;
 if (p==NULL)
 {
  puts("Њ*ббЁў p *Ґ ᮧ¤**!");
  getch();
  return;
 }
 
  p1=(float *)calloc(N,sizeof(float)) ;
 if (p1==NULL)
 {
  puts("Њ*ббЁў p1 *Ґ ᮧ¤**!");
  getch();
  return;
 }
 
 for (i=0; i<N; i++) //а*ббзҐв н*ва®ЇЁЁ д*©«*
 {
  p[i]=1.0*ws[i]/B;//§*Ї®«*Ґ*ЁҐ ¬*ббЁў* ўҐа®пв*®б⥩ Ї®пў«Ґ*Ёп бЁ¬ў®«®ў
  H+=-1.0*p[i]*log(p[i])/log(2.0);
  p1[i]=p[i];   //а*ббзҐв н*ва®ЇЁЁ д*©«*
 }
 L=(long *)malloc(N*sizeof(long)); //ᮧ¤**ЁҐ ¬*ббЁў* ¤«Ё** Є®¤®ўле б«®ў
 if (L==NULL)
 {
  puts("Ћ¤*®¬Ґа*л© ¬*ббЁў *Ґ ᮧ¤**!");
  getch();
 }
 
 C=(int**)malloc(N*sizeof(int*)); //ᮧ¤**ЁҐ ¤Ё**¬Ёз ¬*ббЁў* гЄ*§*⥫Ґ© ** гЄ*§*⥫Ё **з*«* бва®Є
 if (C==NULL)
 {
  puts("Њ*ббЁў гЄ*§*⥫Ґ© бва®Є ‘ *Ґ ᮧ¤**!");
  getch();
 }
 for (i=0;i<N;i++)//ўл¤Ґ«пҐ¬ Ї*¬пвм Ї®¤ N ¬*ббЁў®ў -бва®Є Ї® N н«Ґ¬Ґ*в®ў ў Є*¦¤®¬
 {
  C[i]=(int *)malloc(N*sizeof(int*));
  if (C[i]==NULL)
  {
   puts("Њ*ббЁў ‘ *Ґ ᮧ¤**!");
   getch();
  }
 }
 
 Lh=Av_Haffman(p,p1,N,C,L);
 
 for (i=0; i<N; i++) //ў®ббв**®ў«Ґ*ЁҐ ЇҐаў®**з*«м*ле §**зҐ*Ё© ўҐа®пв*®бвЁ
 {
  L[i]=0;
 }
  for (i=0; i<N; i++) //ў®ббв**®ў«Ґ*ЁҐ ЇҐаў®**з*«м*ле §**зҐ*Ё© ўҐа®пв*®бвЁ
 {
  for (j=0; j<N; j++)
   C[i][j]=0;
 }
 
 Lsh=Shennon(p1,N,CHAR_S,ws,C,L);
 
 for (i=0; i<N; i++) //ў®ббв**®ў«Ґ*ЁҐ ЇҐаў®**з*«м*ле §**зҐ*Ё© ўҐа®пв*®бвЁ
 {
  L[i]=0;
 }
  for (i=0; i<N; i++) //ў®ббв**®ў«Ґ*ЁҐ ЇҐаў®**з*«м*ле §**зҐ*Ё© ўҐа®пв*®бвЁ
 {
  for (j=0; j<N; j++)
   C[i][j]=0;
 }
 
 Lf=Av_Fano (p1,N,CHAR_S,ws,C,L);
 
 fw=fopen("COD_H.txt","a");
 printf ("\n ќ*ва®ЇЁп Ёб室*®Ј®   ‘।*пп ¤«Ё** Є®¤®ў®Ј® б«®ў*");
 printf ("\n       ⥪бв*         Љ®¤ •*дд¬***  Љ®¤ ?Ґ**®**  Љ®¤ ”**®");
 printf("\n       %2.4f           %2.4f            %2.4f     %2.4f", H,Lh,Lsh,Lf);
 
 fprintf(fw, "\n Entropy of the    Average lenght codeword ");
 fprintf(fw, "\n sourse text       Haffman cod   Shennon cod   Fano cod");
 fprintf(fw,"\n       %2.4f           %2.4f            %2.4f     %2.4f",H,Lh,Lsh,Lf);
 fclose(fw);
 
 
 //®бў®Ў®¦¤Ґ*ЁҐ Ї*¬пвЁ ®в ᮧ¤***ле ¤Ё**¬ЁзҐбЄЁе ¬*ббЁў®ў
 fclose(f);
 free(p);
 free(p1);
 free(CHAR_S);
 free(ws);
 for (i=0;i<N;i++)
  free(C[i]);
 free(C);
 free(L);
 
 getch();
 fclose(f);
 puts ("\n ЋвЄалвм ¤агЈ®© д*©«? (ЌҐв=Esc)");
 key=getch();
 }
 while (key!=27);//ESC
 
}