Символьный массив - Запись / Чтение

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
char *Mytext [10][30]={0};
int stroka = 5;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)// Запись
{
   if (Edit1->Text !="")
   {
    AnsiString tekst = "";
for (int s = 0; s < Edit1->Text.Length(); s++)
{
tekst = Edit1->Text.SubString(s+1,1);
Mytext[5][s] = tekst.c_str();
ShowMessage(Mytext[5][s]);// вроде правильно вводит?
}
    //Mytext[5][Edit1->Text.Length()+1] = '\0';
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)// чтение
{
            AnsiString tekst = "";
 for (int s = 0; s < 10 ; s++)
 {
           tekst += Mytext[5][s];
           ShowMessage(Mytext[5][s]);// здесь уже всякая чепуха!
           
 }
           Memo1->Text = tekst;
}
//---------------------------------------------------------------------------