Термін здачі піджимає, а я туплю дуже:(((

Програма виглядає так:

в Edit1 пишу кількість чисел, які будуть виведені в масив (ListBox1).

Потрібно зробити так, щоб при натисканні на кнопку в другий лістбокс виводилося таке сортування масиву:

перша половина сортується за зростанням чисел, а друга половина - за спаданням.

Буду дуже вдячний за допомогу

Ось частина мого коду (кнопка "Заповнити масив А):
procedure TForm1.Button1Click(Sender: TObject);

var

 i, count: Integer;

begin

 // Отримання кількості чисел з Edit1

 count := StrToIntDef(Edit1.Text, 0);

 // Перевірка на допустимість кількості чисел

 if (count > 0) and (count <= 100) then

 begin

   // Заповнення масиву A обмеженою кількістю чисел

   for i := 0 to count - 1 do

   begin

     if i mod 2 = 0 then

       A[i] := Random(101) // додатні числа для парних позицій

     else

       A[i] := -Random(101); // від'ємні числа для непарних позицій

   end;

   // Виведення обмеженого масиву A у ListBox1

   ListBox1.Clear;

   for i := 0 to count - 1 do

     ListBox1.Items.Add(IntToStr(A[i]));

 end

 else

   ShowMessage('Введіть коректне значення кількості (від 1 до 100).');

end;