==== Сортировка вставкой ====

Идея в том что бы создать новый массив, а затем последовательно вставлять в новый массив элементы из старого массива, чтобы созданный массив был всё время упорядоченным.

repeat

pr:=0;

for i:=1 to n-1 do

if a[i]< a[i+1] then

begin

p:=a[i];

a[i]:=a[i+1];

a[i+1]:=p;

pr:=1;

end;

until pr=0;

[[http://wiki.vspu.ru/doku.php?id=workroom:programming:algoritm|Назад]]