Вывести на экран цифру, наиболее частую встречающеюся массиве

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int mas[100];  //массив из 100 елементов
  int max = 0;   //максимальное количество однаковых чисел
  int count;     //сколько раз встречается число
  int result;    //результат
  for(int i = 0; i < 100; i++)
    {
      randomize();
      mas[i] = random(128);  //инициализация, 127 - максимальное число в массиве
    }
  for(int i = 0; i < 128; i++)
    {
      count = 0;
      for(int j = 0; j < 100; j++)
        if(mas[j] == i)
          count++;
      if(count > max)
        {
          max = count;
          result = i;
        }
    }
  ShowMessage(IntToStr(result));
}

  int a;
  int mas[100];  //массив из 100 элементов
  int max = 0;   // максимальное количество однаковых чисел
  int count[128];     // какое число сколько раз встречается
  int result;    // результат
 
  for (int i=0; i<128; i++)
    count[i] = 0;
 
  randomize();
 
  for(int i = 0; i < 100; i++)
  {    
    a = random(128);
    mas[i] = a; //инициализация, 127 - максимальное число в массиве
    ++count[a]; 
  }
 
  for (int i = 0; i<128; i++)
  {
    if (count[i] > max) 
    {
      max = count[i];
      result = i;
    }
  }
 
  ShowMessage("Число " + IntToStr(result) + " встречается " + IntToStr(max) + " раз.");

for (int i=0; i<128; i++)
    count[i] = 0;

ZeroMemory(count, 128*sizeof(int));

ZeroMemory(count, 128 * sizeof(int));

int count[128] = {0};