Алгоритмы поиска и сортировки в массивах

#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   int a[100];
int n=StrToInt(Edit1->Text);
if(n<10){
ShowMessage("Минимальное количество 100!");
                n=10;
                Edit1->Text = "100";
}
StringGrid1->ColCount=n;
for(int i=0; i<n;i++){
a[i]=rand()%10-1;
StringGrid1->Cells[i][0]=IntToStr(i+1);
StringGrid1->Cells[i][1] = IntToStr(a[i]);  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int n=StrToInt(Edit1->Text),a[100];
int i,j,R,L,r,x;
i = 0; j = n-1; x = a[(L + R)/2];
 while (i <= j) {
        while (a[i] < x)  i++;
        while (a[j] > x)  j--;
        if (i <= j) {
                r = a[i];           // Переставляем элементы
            a[i] = a[j];
            a[j] = r;
             i++;       j--;
            }
}
 
StringGrid2->ColCount=n;
for(int i=0;i<n;i++){
StringGrid2->Cells[i][0]=IntToStr(i+1);
StringGrid2->Cells[i][1]=IntToStr(a[i]);}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
int k,n,m,i,a[100];
n=StrToInt(Edit1->Text);
k=StrToInt(Edit2->Text);
for(i=0; i<n;i++) {
a[i]=StrToInt(StringGrid2->Cells[i][1]); }
Memo1->Lines->Clear();
for(i=1;i<n;i++){
if(k==a[i-1]){
Memo1->Lines->Add("Номер элемента(X)= "+IntToStr(i));}}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{  int k,n,m,a[100];
n=StrToInt(Edit1->Text);
k=StrToInt(Edit2->Text);
Memo2->Lines->Clear();
if(a[n/2]>k){
for(int i=0;i<n/2;i++){
if(k==a[i]){
Memo2->Lines->Add("Номер элемента(X)= "+IntToStr(i-6));}}}
else if(a[n/2]<k){
for(int i=n/2;i<=n;i++){
if(k==a[i]){
Memo2->Lines->Add("Номер элемента(X)= "+IntToStr(i-6));}}}
else{
for(int i=0;i<n;i++){
if(k==a[i]){
Memo2->Lines->Add("Номер элемента(X)= "+IntToStr(i-6));}}}
 
}