Составить программу которая...

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

 

Procedure TForm1.Button1Click(Sender: TObject);
var a:Array of integer;
i:integer;
n:integer;
t:integer;
k:integer;
l1,l2,l:TdateTime;
begin
Memo1.Clear;
n:=StrToInt(Edit1.Text); // ввод размера массива
SetLength(a,n); //создает массив с нужным кол-вом строк
for i:=0 to n-1 do
a:=random(n);
if CheckBox1.Checked then
for i:=0 to n-1 do
Memo1.Lines.Add(IntToStr(a));
l1:=time;
//Сортировка
for k:=1 to n-1 do
for i:=0 to n-2 do
if a>a[i+1] then
begin
t:=a; //меняет местами смежные ячейки если это необходимо
a:=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 then
for i:=0 to n-1 do
Memo2.Lines.Add(IntToStr(a)); //вводит во второе окно отсортированные данные
end;