Вводится с клавиатуры длина массива.
Сортировка простыми вставками
procedure Sort ;
var k,j, x: byte;
begin
for k:=2 to N do
begin
x:=A[k];
j:=k-1;
while (j>0) and (x>A[j]) do
begin
A[j+1]:=A[j];
end;
A[j+1]:=x;
end;
end;
procedure Sort ;
var k,j, x: byte;
begin
for k:=2 to N do
begin
x:=A[k];
j:=k-1;
while (j>0) and (x>A[j]) do
begin
A[j+1]:=A[j];
end;
A[j+1]:=x;
end;
end;