Замена слова в символьной строке(Си)

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString str = Edit1->Text + " ";  //вводим текст строки
  int k = Edit2->Text.ToInt();  //вводим k
  AnsiString new_str = Edit3->Text;  //вводим слово для замены
  Set<char, 0, 255> Razdelitel;
  AnsiString tmp;
  int count = 0;
  Razdelitel << ' ' << '.' << ',' << ':' << ';' << '!' << '?' << '\r' << '\n';
  for(int i = 0; i < str.Length(); i++)
   {
     if(!Razdelitel.Contains(str[i + 1]))
       tmp += str[i + 1];
     else
       {
         if(tmp != "")
           count++;
         if(count == k)
           {
             i++;
             str.Delete(i - tmp.Length(), tmp.Length());
             str.Insert(new_str, i - tmp.Length());
             break;
           }
         tmp = "";
       }
   }
  if(k > count)
    {
      ShowMessage("Номер введенного слова больше количества слов в строке!");
      return;  //если k больше количества слов
    }
  str.Delete(str.Length(), 1);
  Edit4->Text = str;  //выводим результат
}