Написать программу которая считывает текст из файла и определяет, сколько в нем слов, состоящих из не более чем четырех букв.

#include <stdio.h>
#pragma hdrstop
#pragma argsused
 
int main(int argc, char* argv[])
{
  int Handle;
  int Length;
  int BytesRead;
  char *Buf;
  if (argc<2) { printf("Usage: program_name text_file_name"); return 0;}
  AnsiString FileName=GetCurrentDir()+"\\"+(AnsiString)argv[1];
  try
  {
   Handle = FileOpen(FileName, fmOpenRead);
   Length = FileSeek(Handle,0,2);
   FileSeek(Handle,0,0);
   Buf = new char[Length+1];
   FileRead(Handle, Buf, Length);
   FileClose(Handle);
   unsigned int WLen=0;
   unsigned long WCount=0;
   for (unsigned long i=0;i<Length;i++)
   {
    if (Buf[i]!=' ') WLen++;
    else
    {
     if (WLen<=4) WCount++;
     WLen=0;
    }
   }
   delete [] Buf;
   printf ("Count = %d", WCount);
  }
  catch(...)  {   printf("File Error");  }
  return 0;
}

AnsiString filename, str;
filename = "путь\\имя.файла";
int i, j;
j = 4;
 
Memo->Lines->LoadFromFile(filename);
str = Memo->Text;
Memo->Clear();
 
TSysCharSet Tws,Tcs;
Tcs<<' '<<','; // разделители
ExtractStrings(Tcs,Tws,str.c_str(),Memo->Lines);
 
for (i=0; i<Memo->Lines->Count; i++) {
  if (Memo-Lines->Strings[i].Length() < 5) {j++;}
}
ShowMessage("В файле "+filename+" "+IntToStr(j)+ // или filename.c_str()
            " слов, в которых не более 4 символов." );
Memo->Text = Memo->Text + "\nВ файле "+filename+" "+IntToStr(j)+
            " слов, в которых не более 4 символов." );

j=0;

j=4;
if (... .Length() <= j)