Сортировка массива выбором и пузырьком (делфи)

[kira_truelove]

Нужна помощь в задании.
Найти значение выражения 2/a[x] + a[x]^2. Вывести результат в виде массива и упорядочить его по убыванию методом выбора и пузырька.
Инетересует именно сортировка результирующего массива двумя способами.
Заранее спасибо.

[Arigato]

Решение Вашей задачи (только сортировка, без вычислений, массив заполняю случайными числами от 0 до 999):

program Project1;
{$APPTYPE CONSOLE}
const N = 20;
type TElem = 0..999;
var Vector: array[1..N] of TElem;
    Temp: array[TElem] of Integer;
    I, J: Integer;
begin
  Randomize;
  FillChar (Temp, SizeOf (Temp), 0);
  for I := 1 to N do
  begin
    Vector[I] := Random (High (TElem) + 1);
    Write (Vector[I], ' ');
    Inc (Temp[Vector[I]]);
  end; {for}
  WriteLn; WriteLn;
  for I := High (TElem) downto Low (TElem) do
    for J := 1 to Temp[I] do
      Write (I, ' ');
  ReadLn;
end.

P.S. Использовал не пузырёк, т.к. это крайне неэффективный метод сортировки. В моём примере сортировка происходить за время O(n), а пузырь работает O(n^2). Если Вам нужен именно тормазнутый алгоритм сортировки - реализовывайте сами, я же не вижу смысла использовать крайне медленные алгоритмы сортировки.