Сортировка простыми вставками.

Вообщето всё очень просто:
const
K = 10;
var
A : array[1..K] of Integer;
i, j, Key : Integer;
....
{ сама сортировка }
for i := 2 to K do
begin
Key := A[i]; { берём ключевой элемент массива }
j := i - 1; { будем сравнивать начиная с пердыдущего }
while (j > 0) and (A[j] > Key) do { пока ключевой элемент < j-ого }
begin { j-тый элемент сдвигаем в право }
A[j + 1] := A[j];
j := j - 1;
end;
A[j + 1] := Key; { ключевой элемент помещаем в освободившуюся ячейку массива }
end;
Принцип работы алгоритма:
берём массив
[8, 7, 5, 6, ..]
начинаем искать место для 2 элемента в сторону начала массива
key = 7
key < 8, значит 8 двигаем на 1 позицию к концу массива
[х, 8, 5, 6, ..]
достигли начала, значит key сохраняем в первую позицию
[7, 8, 5, 6, ..]
начинаем искать место для 3 элемента в сторону начала массива
key = 5
key < 8, значит 8 двигаем на 1 позицию к концу массива
[7, x, 8, 6, ..]
key < 7, значит 7 двигаем на 1 позицию к концу массива
[x, 7, 8, 6, ..]
достигли начала, значит key сохраняем в первую позицию
[5, 7, 8, 6, ..]
начинаем искать место для 4 элемента в сторону начала массива
key = 6
key < 8, значит 8 двигаем на 1 позицию к концу массива
[5, 7, x, 8, ..]
key < 7, значит 7 двигаем на 1 позицию к концу массива
[5, x, 7, 8, ..]
key > 5, значит key сохраняем в предыдущую позицию
[5, 6, 7, 8, ..]
Вот так!