Отсортировать (по неубыванию) методом прямого выбора массив целых чисел A[n], n> 100. Массив заполнить случайным образом

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int n;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
n=StrToFloat(Edit1->Text);
if(n>1000){
ShowMessage("Максимальное количество 1000!");
n=1000;
}
StringGrid1->ColCount=n;
for(int i=0; i<n;i++)
StringGrid1->Cells[i][0]=IntToStr(random(100));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
const int x=100;
int arr[x];
int m, r;
 
for (int i = 0; i < n-1; i++) {
    m=i;
    for (int j = i+1; i < n; i++) {
        if (arr[j] < arr[m]) m=j;
        r = arr[m];
        arr[m] = arr[i];
        arr[i] = r;
    }
}
 
for(int i=0; i<n;i++)
StringGrid2->Cells[i][0]=IntToStr(arr[i]);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
n=StrToFloat(Edit1->Text);
if(n>1000){
ShowMessage("Максимальное количество 1000!");
n=1000;
}
StringGrid1->ColCount=n;
for(int i=0; i<n;i++)
StringGrid1->Cells[i][0]=IntToStr(random(100));
}