[Borland C++ Builder] Иллюстрация сортировки

void ShellSort(char *item,int count)
{
  Memo1->Clear();
  register int i,j,interval,k,q;
  char x;
  int a[5];
  a[0]=9; a[1]=5; a[2]=3; a[3]=2; a[4]=1;
  for(k=0;k<5;k++)
  {
    interval=a[k];
    for(i=interval;i<count;i++)
    {
      x=item;
      for(j=i-interval;x<item[j] && j>=0;j=j-interval)
      {
        item[j+interval]=item[j];
      }
      item[j+interval]=x;
    }
    Memo1->Lines->Add(AnsiString(item));
  }
}
//вызов функции:
char *str=Edit1->Text.c_str();
ShellSort(str,(int)strlen(str));
Edit2->Text=AnsiString(str);