Считать служебные слова из файла и вывести...

Memo1->LoadFromFile("исходный текстовый файл");
AnsiString keyword[] = "function,procedure,var,bool,integer";
AnsiString src = Memo1->Text;
int pos = src.Pos(keyword);
for (int i=1;i<src->Length();i++) {
  if (pos) {
    Memo2->Lines->Add(keyword);
    Memo2->SaveToFile("result.txt");
  }
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Memo1->Lines->LoadFromFile("343.txt");
AnsiString  keyword[2] = {"function","var"};
AnsiString text = Memo1->Text;
 
int word_pos;
for (int j=0; j<2;j++){
 
for (int i=1; i<text.Length(); i++)
        {
        word_pos=text.Pos(keyword[j]);
         if (text[i]==text[word_pos])
                {
                Memo2->Lines->Add(keyword[j]);
                }
        }
 
} // for j
 
Memo2->Lines->SaveToFile("Resultat.txt");

word_pos=text.Pos(keyword[j]);

 ThrowIfOutOfRange(idx);   // Should Range-checking be optional to avoid overhead ??

void __fastcall TForm1::Button3Click(TObject *Sender)
{
const int sl=17;
AnsiString slova[sl]={"Prodram","var","for","integer","if","Begin","end",
                              "while","writeln","else","do","to","then","char",
                              "string","word","byte"};
AnsiString s= Memo1->Text;
int s_leng=s.Length();
int word_pos;
for (int j=0; j<2;j++)
  {
   for (int i=1; i<s_leng; i++)
        {
        word_pos = s.Pos(slova[j]);
         if (s[i] == s[word_pos])
                {
                Memo2->Lines->Add(slova[j]);
                }
        }
   }
}

void __fastcall TForm1::Button3Click(TObject *Sender)
{
const int sl=17;
AnsiString slova[sl]={"Prodram","var","for","integer","if","Begin","end",
                              "while","writeln","else","do","to","then","char",
                              "string","word","byte"};
AnsiString s= Memo1->Text;
int s_leng=s.Length();
int word_pos;
  for (int j=0; j<2;j++) {
    for (int i=1; i<s_leng; i++) {
      word_pos = s.Pos(slova[j]);
//         if (s[i] == s[word_pos]) {
//           Memo2->Lines->Add(slova[j]);
//         }
    }
  }
}