Посчитать наибольшее у какого автора наибольшее количество работ в данном регионе

struct  Monument {
int Ocenka;
AnsiString Name;
AnsiString Region;
AnsiString Creator;
AnsiString Vid;
} monument[100];

#include <memory>
#include <Math.hpp>
 
//---------------------------------------------------------------------------
int __fastcall iSort(TStringList* X, int i1, int i2)
{
    return -1 * CompareValue((int)X->Objects[i1], (int)X->Objects[i2]);
}
//---------------------------------------------------------------------------
void __fastcall TForm3::ComboBox1Change(TObject *Sender)
{
   std::auto_ptr<TStringList> L (new TStringList);
   for(int i = 0; i < 100; i++)
     if(monument[i].Region != ComboBox1->Text) continue;
     else {
       int k = L->IndexOf(monument[i].Creator);
       if(k == -1) L->AddObject(monument[i].Creator, (TObject*)1);
       else L->Objects[k] = (TObject *)(int)L->Objects[k];
     }
   L->CustomSort(iSort);
   ShowMessage(String().sprintf(L"В регионе %s больше всего памятников (%d) у автора %s", ComboBox1->Text, (int)L->Objects[0], L->Strings[0]));
}

else L->Objects[k] = (TObject *)((int)L->Objects[k] + 1);

#include <map>
#include <algorithm>
 
void __fastcall TForm3::ComboBox1Change(TObject *Sender)
{
    std::map<String, int> m;
    for(int i = 0; i < 100; i++)
        if(monument[i].Region == ComboBox1->Text) m[monument[i].Creator] += 1;
    auto pr = std::max_element
    (
        std::begin(m), std::end(m),
        [] (const std::pair<String, int>& p1, const std::pair<String, int>& p2) { return p1.second < p2.second; }
    );
    ShowMessage(String().sprintf(L"В регионе %s больше всего памятников (%d) у автора %s", ComboBox1->Text.c_str(), pr->second, pr->first.c_str()));
}