Расположение массива по возрастанию (убыванию)

Расположить элементы массива по возрастанию - означает расположить их в таком порядке,чтобы больший элемент следовал за меньшим.

Пример:

1 9 8 4 15 3 1 3 4 8 9 15

Чтобы представить себе алгоритм расположения массива по возрастанию рассмотрим такую бытовую задачу:"Командир дал приказ новобранцам построится в колонну по одному по росту,они этого сделать не смогли и встали как попало.Как командиру исправить положение?". Ответ: сравнивать двух рядом стоящих и переставлять их,если они стоят не так как нужно.Возможно,что дойдя до конца колонны,командир так и не добьется нужного порядка и ему придется это проделывать несколько раз.Исследования показали,чтобы наверняка добиться нужного расположения, нужно эту процедуру проделать "n-1" раз,если "n" - количество новобранцев(размерность массива).

Аналогично и с массивами.

Задача: Дан массив а(10).Расположить по возрастанию.

program prim;

var a:array[1..10] of real;

b:real;

k,i:integer;

begin

for i:=1 to 10 do read(a[ i ]);

for k:=1 to 9 do {количество повторений}

for i:=1 to 9 do

if a[i]>a[i+1] then begin

b:=a[ i ];