Составить процедуру массива (по возрастанию и убыванию)

Сортировка методом пузырька (по возрастанию)procedure massivsort(var arr : array of real; const n : integer); var      i:   integer;       j:   integer;       k:   integer;       m:   real; begin      for i: =1 to n do      begin          m: =arr[i-1];           k: =i;           for j: =i to n do          begin              if m> arr[j-1] then              begin                  m: =arr[j-1];                   k: =j;               end;           end;           arr[k-1]: =arr[i-1];           arr[i-1]: =m;       end; end; сортировка по убыванию: procedure sort; var i , j , tmp : integer; begin     for i : = 1 to n - 1 do         for j : = i + 1 to n do             if a[i] < a[j] then begin                 tmp : = a[i];                 a[i] : = a[j];                 a[j] : = tmp;             end;

2? 4? 8? 16? 32? 64? 128? 256