Помогите написать программу, в которой :

В зависимости от выбранных опций происходит подсчитывание слов в которых 3 по порядку символ соответствует

1q или w или r

2d или f или g

//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{ }
//---------------------------------------------------------------------------
AnsiString* strSplit(AnsiString buf, char delim, int & n)
{ n=1;
for (int i =1; i<= buf.Length(); i++)
if(buf[i] == delim)
n++;
AnsiString* res = new AnsiString[n];
for(int j=0;j {
int p =buf.Pos(delim);
if (p==0)
p= buf.Length()+1;
res[j]= buf.SubString(1,p-1);
buf.Delete(1,p);
}
return res;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{ {
int num=0;
int n;
if (RadioButton1->Checked)
{
AnsiString abc ="qwr";
AnsiString s = Memo1->Text;
AnsiString* str = strSplit(s, ' ', n);
for (int j=0; j for (int k = 1; k <= abc.Length();k ++)
if ( str [j].Pos ( abc [ k ]))
{
num++;
break;
}
delete [] str;
}
if (RadioButton2->Checked)
{
AnsiString abc ="dfq";
AnsiString s = Memo1->Text;
AnsiString* str = strSplit(s, ' ', n);
for (int j=0; j for (int k = 1; k <= abc.Length();k ++)
if ( str [j].Pos ( abc [ k ]))
{
num++;
break;
}
delete [] str;
}
ShowMessage ("Найдено слов: " + IntToStr (num));
}}
//---------------------------------------------------------------------------

проблема в том, как найти 3 символ в слове