Исправить вывод данных

using namespace std;
int get_data (ifstream &infile, l_lisp &lisp, string &input);
void create_work(l_lisp lisp, l_lisp &work);
void calc(ofstream &out);
int num_bit(int num_sym);
void __fastcall TForm1::Button6Click(TObject *Sender)
{
   ofstream out("out.txt");
   if (out.is_open()) out << "File open!\n";
   binTree tree;
   turn turn;
   l_lisp lisp, work;
   string input, result;
   char file_name[30];
   int num_sym = 0;
   Memo1->Lines->Add("Кодирование текста методом Хаффмана");
   ifstream infile("123.txt");
   if (!infile)
      {
         Memo1->Lines->Add("Файл с исходными данными не найден! Проверьте правильность выполнения программы");
         getch();
         exit(1);
      }
   num_sym = get_data(infile,lisp, input);
   Memo1->Lines->Add("Общее количество символов: ");
   Memo1->Lines->Add(input.length());
   Memo1->Lines->Add("Количество различных символов в строке: ");
   Memo1->Lines->Add(num_sym);
   Memo1->Lines->Add("Для кодирования данного сообщения обычной кодировкой с использованием ");
   Memo1->Lines->Add (num_bit(num_sym));
   Memo1->Lines->Add(" бит на каждый символ, требуется ");
   Memo1->Lines->Add(num_bit(num_sym)*input.length());
   //Memo1->Lines->Add("Рассмотрим количество вхождений различных символов:");
   lisp.print(out,0);
   lisp.sort_inc(work);
   //Memo1->Lines->Add("Упорядочим по убыванию количества вхождений:");
   work.print(out,0);
   //Memo1->Lines->Add("Производим объединения последних двух строк, до образования единой строки:");
   work.copi_lisp(lisp);
   work.calc(lisp);
  // Memo1->Lines->Add("Построим дерево Хаффмана в соответствие с производимыми объединениями:");
   tree = work.head->under;
   tree.level = tree.calc_level(tree.head);
   tree.print_ver(turn,*tree.head);
   if(tree.level > 6)
      {
         Memo1->Lines->Add("Полученное дерево имеет более 6 уровней, корректный вывод его невозможен");
         Memo1->Lines->Add("Данное дерево будет сформировано и выведено в выходном файле out.txt");
         turn.print(0,out);
      }
    else turn.print(1,out);
   //Memo1->Lines->Add("Вычислим коды всех присутствующих символов:");
   lisp.print(out,1);
   result = lisp.coding(input);
   Memo1->Lines->Add("Закодируем исходное сообщение с помощью полученной кодировки:");
   Memo1->Lines->Add(result.c_str());
   Memo1->Lines->Add("Для кодирования данного сообщения кодом Хаффмана требуется ");
   Memo1->Lines->Add(result.length());
   Memo1->Lines->Add("Полученный выигрыш в объеме информации составляет: ");
   Memo1->Lines->Add(num_bit(num_sym)*input.length() - result.length());

lisp.print(out,0);