Поменять местами соседние слова текста

void __fastcall TForm1::ArunExecute(TObject *Sender)
{
struct massive {AnsiString mas[20];};
struct massive word[80];
AnsiString S1,S2,d,a;
char buf[256]="";
int k=0,l=0;
d=" ";
for(int i=0;i<=Memo1->Lines->Count;i++)
  {
  StrPCopy(buf,Memo1->Lines->Strings[i]);
  S1=buf;
  for (int j=1;j<=S1.Length();j++)
    {
    if (IsDelimiter(d,S1,j))
      {
      word[l].mas=S1.SubString(k+1,IsDelimiter(d,S1,j)-k);
      k=IsDelimiter(d,S1,j); l++;
      }
    }
  for(int m=0;m<l;m=m+2)
  {a=word[m].mas; word[m].mas=word[m+1].mas; word[m+1].mas=a; }
  Memo2->Lines->Add(word[i].mas);
  }
}

  AnsiString text, slovo;
 text=Memo1->Text;
 slovo=text.SubString(1,AnsiPos(' ',text));
 text.Delete(1,AnsiPos(' ',text));
 text=text+' '+slovo;
 Memo2->Text=text;

 AnsiString text, slovo1;
 text=Memo1->Text;
 slovo1=text.SubString(1,AnsiPos(' ',text));
 text.Delete(1,AnsiPos(' ',text));
 int index = text.AnsiPos(' ');
 if (index != 0)
   text.Insert(slovo1+' ',index+1);
 while (text.Pos("  "))
   text.Delete(text.Pos("  "),1);
 Memo2->Text=text;

AnsiString S1,S2="",slovo1,slovo2;
int j=0;
while(j<Memo1->Lines->Count)
  {
  S1=Memo1->Lines->Strings[j];
  while(AnsiPos(' ',S1))
  {
  slovo1=S1.SubString(1,AnsiPos(' ',S1));
  S1.Delete(1,AnsiPos(' ',S1));
  slovo2=S1.SubString(1,AnsiPos(' ',S1));
  S1.Delete(1,AnsiPos(' ',S1));
  S2=S2+slovo2+slovo1;
  }
  S2=S2+S1;
  Memo2->Lines->Strings[j]=S2;
  S2="";
  j++;
  }