Кодировка Хаффмана и Фано

#include <vcl.h>
#include <conio.h>
#include <stdio.h>
#include <math.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.cpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
 
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{wchar_t Simvol;
int Kod, i, j = -1, Null = 0, N, M = -1, A = 0, B = 0;
int long Table[256] = {0};
float H, Ent = 0;
FILE* f = fopen("in.txt", "r");
while (!feof(f)){ //здесь я считаю частоту встречаемости символов из ASCII таблицы 
     fscanf(f, "%c", &Simvol);
     Kod = (int)Simvol;
     Table[Kod]++;
     M++;
     Kod = 0;
}
for (i = 0; i < 256; i++) {
    if (Table[i] == 0) {//считаю кол-во "нулевых" символов, т.е. символов которых нет в файле
        Null++;
    }
}
N = 256 - Null;// N - число используемых символов
int *Chastota = new int[N];//Chastota - массив с частотами символов, Number - массив с ASCII кодами этих символов
int *Number = new int[N];
for (i = 0; i < 255; i++) {
     if (Table[i] != 0) {
         j++;
         Chastota[j] = Table[i];
         Number[j] = i;
     }
}
//------------------------------расчет энтропии---------------------------------
for (i = 0; i < N; i++) {
     H = ((double)Chastota[i]/M) * (log10((double)Chastota[i]) / log10((double)2) - (log10((double)M) / log10((double)2)));
     Ent = Ent + H;
}
Ent = Ent * (-1);
X = (int)Ent;
 
//---------------------------упорядочивание массива-----------------------------
for (i = 1; i < N; i++) {
   for (j = i; j > 1; j--) {
      if (Chastota[j] > Chastota[j-1]) {
          A = Chastota[j];
          B = Number[j];
          Chastota[j] = Chastota[j-1];
          Number[j] = Number[j-1];
          Chastota[j-1] = A;
          Number[j-1] = B;
      }
   }
}
}
//---------------------------------------------------------------------------