Упорядочить нечетные элементы массива по убыванию ( тема: метод перестановок или пузырька)

Создадим массив, который будет иметь тип real, чтобы было больше возможностей для его заполнения, и назовем его В:
B : array [1..110] of real;
Заполним его случайными числами со специальной функцией:
for i:integer := 1 to 110 do
B[i] := random(100)/5 + random(100)/2;
Будем упорядочивать:
for i:integer := 2 to 110 do
if (B[i] < B[i - 1]) then
begin
t := B[i - 1];
B[i - 1] := B[i];
B[i] := t;
end;
После этого все элементы станут в массиве по порядку.