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

#pragma hdrstop
#include <Classes.hpp>
#include <memory>
#include <stdio>
#include <conio>
//---------------------------------------------------------------------------
 
#pragma argsused
int main(int argc, char* argv[])
{
    SetConsoleCP(1251);
    SetConsoleOutputCP(1251);
    const String AlphRus = "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ";
    std::auto_ptr<TStringList> L (new TStringList);
    L->LoadFromFile("c:\\tmp\\1.txt");
    int Len = L->Text.Length();
    std::auto_ptr<TStringList> Temp (new TStringList);
    String s;
    for(int i = 1; i <= Len; i++)
      {
         s = AnsiUpperCase(L->Text[i]);
         if(AlphRus.Pos(s))
           {
             int k = Temp->IndexOf(s);
             if(k == -1)
               Temp->AddObject(s, (TObject*)1);
             else
               Temp->Objects[k] = (TObject*)(((int)Temp->Objects[k] + 1));
           }
       }
    printf("Длина текста - %d\n", Len);
    Temp->Sort();
    for(int i = 0; i < Temp->Count; i++)
      printf("Буква - %s\tчисло вхождений - %d\tчастота вхождений - %0.4f\n", Temp->Strings[i], (int)Temp->Objects[i], (int)Temp->Objects[i] / (double)Len);
    printf("Другие русские буквы в тексте не встречаются\n");
    printf("Нажмите любую нопку для выхода");
    _getch();
    return 0;
}