Программа "Наглядное представление сортировки"

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
        #define size 9
        int tmp, arr[size] = {1, 2, 3, 14, 5, 7 ,9, 7, 3};
 
                const int x = 5;
                int s = 5, j = 0, y = 5, x1, y1;
                TImage *Image[size];
 
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
 
        switch(ComboBox1->ItemIndex)
        {
                case 0:
//сортировка пузырьком
                for(int i = 0; i < size; ++i)
                {
                        int pos = i;
                        tmp = arr[i];
 
                        for(int j = i + 1; j < size; ++j)
                        {
                                if (arr[j] < tmp)
                                {
                                        pos = j;
                                        tmp = arr[j];
                                }
 
                }
 
                arr[pos] = arr[i];
                arr[i] = tmp;
//отрисовка конечного(отсортированного) массива
                                x1 = arr[i] + x;
                                y = y + j;
                                j = 2;
                                y1 = y;
                                Image1->Canvas->Pen->Color = clBlack;
                                Image1->Canvas->Pen->Width = 1;
 
                                Image1->Canvas->MoveTo(x * s, y * s);
                                Image1->Canvas->LineTo(x1 * s, y1 * s);
 
                                Image2->Canvas->Pen->Color = clBlack;
                                Image2->Canvas->Pen->Width = 1;
 
                                Image2->Canvas->MoveTo(x * s, y * s);
                                Image2->Canvas->LineTo(x1 * s, y1 * s);
 
                //ShowMessage(arr[i]);
                }
                }
 
 
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
//если пригодиться для анимации (на форме 10 x Image)
                Image[0] = Image1;
                Image[1] = Image2;
                Image[2] = Image3;
                Image[3] = Image4;
                Image[4] = Image5;
                Image[5] = Image6;
                Image[6] = Image7;
                Image[7] = Image8;
                Image[8] = Image9;
}
//---------------------------------------------------------------------------