Не выводится матрица в memo

int main()
{
 clrscr();
 cout << Rus("Привет ,Лопух!")<< endl;
 int i=100,j=0;
 cout<<"GOGOGOGO!!!\n" ;
 getch();
 
 char *buf2=new char[i];      //декларация массива для чтение строк в файле
 FILE *ifin2;           //открытие файла для чтения
 ifin2=fopen("C:\\Out.txt","r");
 if(!ifin2)
 {              //если попытка не удалась
    puts("Ne mogu otkrut fail Out");
    getch();
    return 1;
 }
 
 i=0;
 while(!(feof(ifin2)))     //посчитали количество символов в файле с исходящим сообщением
 {
  fscanf(ifin2,"%c",&buf2[i]);   //считали символ входного сообщения
  i++;
 }
 cout<<"\nk="<<i<<"\n";
 
 k=i-1;   //не считаем символ конца файла
 
 int **a=new int *[k];
 int **arr=new int *[k];
 
 for(i=0;i<k;i++)
 {
  a[i]=new int[block]; //переходный массив: строка-код буквы сообщения
  arr[i]=new int[block]; //запасной массив. все изменения храним в нём
 }
 
 cout << Rus("Входное сообщение")<< endl;
 for(i=0;i<k;i++)
 {
  cout<<buf2[i];    //буква сообщения
 }
 
 cout <<"\n"<< Rus("Код входного сообщения")<< endl;
 i=0;
 int y;
 fseek(ifin2,0,SEEK_SET);    //указатель в начало файла
 fscanf(ifin2,"%c",&buf2[i]);  //счиатли первый символ
 while(!(feof(ifin2)))
 {
//  cout<<buf2[i];    //буква сообщения
  for(j=0;j<Al;j++) //перебираем алфавит
   if(buf2[i]==s[j])
   {
    for(y=0;y<block;y++)
    {
      a[i][y]=cod[j][y];  //записываем код символа в переходный массив
//      cout<<a[i][y];
    }
//    cout<<" ";
   }
  i++;
  fscanf(ifin2,"%c",&buf2[i]); //считали следующий символ входного сообщения
 }
 
// cout<<"\n";
 for(i=0;i<k;i++)
 {
  for(j=0;j<block;j++)
  cout<<a[i][j];
//  arr[i][j]=a[i][j];
  cout<<".";
 }
 
 perv(a,arr);
 
 cout<<"\nNov block\n";
  for(j=0;j<block;j++)
   cout<<arr[0][j];
 
 coder(a,arr,k);
 
 preo(arr,k);
 
 getch();
 delete[]buf2;
 delete[]a;
 delete[]arr;
 fclose(ifin2);
 return 0;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 k=Memo1->Text.Length()+1;   //запомнили количество символов сообщения
 buf = new char[Memo1->Text.Length() + 1];   //текст memo в массиве buf
 strcpy (buf, Memo1->Text.c_str());   //Копирует строку  string2 в string1,  включая
                                     //завершающую литеру '\0'. Возвращает string1.
// Memo2->Text = buf;   //проверка
 int **a=new int *[k];
 int **arr=new int *[k];
 
 int i,j;
 for(i=0;i<k;i++)
 {
  a[i]=new int[block]; //переходный массив: строка-код буквы сообщения
  arr[i]=new int[block]; //запасной массив. все изменения храним в нём
 }
 
 int y;
 
 for(i=0;i<k;i++)
  for(j=0;j<Al;j++) //перебираем алфавит
  {
   if(buf[i]==s[j])
   {
    for(y=0;y<block;y++)
    {
      a[i][y]=cod[j][y];  //записываем код символа в переходный массив
      Form1->Memo4->Lines->Add(IntToStr(a[i][j]));  //
    }
  //  Memo4->Lines->Add(buf[i]);   
  //  Memo4->Text = IntToString(b);
   }
//   else
  // Memo4->Lines->Add("нету");
  }
/*
 for(i=0;i<k;i++)
 for(j=0;j<block;j++)
  Memo4->Text = a[i][j]; //[i]; */  //проверка
}

const int Size = 3;
int Mass[Size][Size] = { {1,2,3}, {4,5,6}, {7,8,9} };
 
Memo1->Clear();
for (int i = 0; i < Size; i++) {
  for (int j = 0; j < Size; j++) {
    Memo1->Text = (Memo1->Text + IntToStr(Mass[i][j]) + " ");
    if (j == Size - 1) Memo1->Text = Memo1->Text + "\r\n";
  }
}