Вывести первые 5 максимальных элементов

#include <math.hpp>
...
/---------------------------------------------------------------------------
void Sort(int b[], int k)
{
  int tmp = 0;
  bool Exit = false;
  while(!Exit)
   {
     Exit = true;
     for(int i = 0; i < k - 1; i++)
      if(b[i] < b[i + 1])
       {
         tmp = b[i];
         b[i] = b[i + 1];
         b[i + 1] = tmp;
         Exit = false;
       }
   }
}
//---------------------------------------------------------------------------
void MakeGrid(TStringGrid *G, int k)
{
  G->Rows[0]->Clear();
  G->ColCount = k;
  for(int i = 0; i < k; i++)
   G->Cells[i][0] = IntToStr(i + 1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int *a = new int[CSpinEdit1->Value];
  for(int i = 0; i < CSpinEdit1->Value; i++)
   {
     a[i] = RandomRange(-99, 100);
     SG->Cells[i][1] = IntToStr(a[i]);
   }
  Sort(a, CSpinEdit1->Value);
  String s = "";
  for(int i = 0; i < 5; i++)
   s += IntToStr(a[i]) + ", ";
  Label2->Caption = Label2->Caption + s.Delete(s.Length() - 1, 2);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  SG->DefaultColWidth = 45;
  MakeGrid(SG, CSpinEdit1->Value);
  Label2->Caption = "5 максимальных элементов массива: ";
  Randomize();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CSpinEdit1Change(TObject *Sender)
{
  MakeGrid(SG, CSpinEdit1->Value);
}
//---------------------------------------------------------------------------