Сортировка массива

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#define N 9
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int i, A[N];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 Label2 -> Caption = "A - Create array" ;
 Label1 -> Caption = "B - Sort array" ;
 //Label3 -> Caption = " " ;
// Label4 -> Caption = " " ;
 Memo1 -> Clear();
 Memo2 -> Clear();
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Memo1 -> Clear();
 Memo2 -> Clear();
 //Label3 -> Caption = " " ;
 //Label4 -> Caption = " " ;
 
 Memo1 -> Clear();
 AnsiString Str;
 for (i = 0; i <= 9; i++)
 {
 A[i] = random(10) ;
 Str += IntToStr (A [i])+ " " ;
 }
 Memo1 -> Lines -> Add(Str);        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 int a;
 AnsiString Str;
 for (i = 0; i <= 8; i++)
 {
 if (A[i] > A[i+1])
 {a = A[i+1];
 A[i+1] = A[i];
 A[i] = a;
 }
 }
 for (i = 0; i <=9; i++)
 {
 Str += IntToStr(A[i])+ " " ;
 }
 Memo2 -> Lines -> Add(Str);
}
//---------------------------------------------------------------------------