Составить программу которая запрашивает 10 чисел и расставляет их…

Procedure TForm1.Button1Click (Sender: TObject); var a: Array of integer; i: integer; n: integer; t: integer; k: integer; l1,l2,l: TdateTime; beginMemo1.Clear; n: =StrToInt (Edit1.Text); // ввод размера массиваSetLength (a,n); //создает массив с нужным кол-вом строкfor i: =0 to n-1 doa[i]: =random (n); if CheckBox1.Checked thenfor i: =0 to n-1 doMemo1.Lines.Add (IntToStr (a[i]); l1: =time; //Сортировкаfor k: =1 to n-1 dofor i: =0 to n-2 doif a[i]>a[i+1] thenbegint: =a[i]; //меняет местами смежные ячейки если это необходимоa[i]: =a[i+1]; a[i+1]: =t; end; l2: =Time; l: =(l2-l1)*24*60*60; edit2.Text: =FloatToStr (l); // вывод значения времениMemo2.Clear; //очищает второе окно перед выводомif CheckBox1.Checked thenfor i: =0 to n-1 doMemo2.Lines.Add (IntToStr (a[i]); //вводит во второе окно отсортированные данныеend;