Кибор, внимание, срочный вопрос!

string a="ТЕКСТ1?ТЕКСТ2?ТЕКСТ3?ТЕКСТ4";
char ch[500];
strcpy(#ch[0], a);
int u=size(a);
string t="";
int l=0;
string s;
string ss;
string sss;

for (int n=0; n<u ; n++)
{
if (ch[n]=='?')
{

l++;
if (l==1)
{
s=t;
messagebox(s);
t="";
}
if (l==2)
{
ss=t;
messagebox(ss);
t="";
}
if (l==3)
{
sss=t;
messagebox(sss);
t="";
}
}
else t=t+ch[n];
}

string a="007wan?008wan?009wan?0010wan?";
char ch[500];
strcpy(#ch[0], a);
aa:;
int u=size(a);
string t="";
int l=0;
string s;
string ss;
string sss;
string ssss;
for (int n=0; n<u ; n++)
{
if (ch[n]=='?')
{
l++;
if (l==1)
{
s=t;
messagebox(s);
t="";
}
if (l==2)
{
ss=t;
messagebox(ss);
t="";
}
if (l==3)
{
sss=t;
messagebox(sss);
t="";
}
if (l==4)
{
ssss=t;
messagebox(ssss);
t="";
}
}
else t=t+ch[n];
}
messagebox("запомнил массив для передачи:");
a=s+"?"+ss+"?"+sss+"?"+ssss+"?";
messagebox(a);
messagebox("произведем разибвку..:");
goto aa;

strcpy(#ch[0], a);

writebuffernet(#ch[0], size(a), "kluch_prog", -1);

readbuffernet(#ch[0], 256, "kluch_prog", -1);
messagebox (format(#ch[0]));

char ch[500];
string a="Текст 1|Текст 2|Текст 3|";
strcpy(#ch[0], a);
string t="";
int l=0;
string s[4];
for (int n=0; n<size(a) ; n++)
{
if (ch[n]=='|')//Разделитель
{
s[0+l]=t;
messagebox(s[0+l]);
l++;
t="";
}
else t=t+ch[n];
}
strcpy(#ch[0], a);
writebuffernet(#ch[0], size(a), "kluch_prog", -1);
readbuffernet(#ch[0], 256, "kluch_prog", -1);
messagebox ("прочитали: "+format(#ch[0]));