Вставками

program SortIns;          <-<-<-
var Initial, Sorted: array[1..10] of word;
i, j:Byte;
begin
Writeln('Введите массив//');
for i:=1 to 10 do Read(Initial[i]);
for i := 1 to 10 do
begin j :=i;
while (j>1) and (Sorted[J-1] > Initial[i])
do begin
Sorted[j] := Sorted[j-1];
j := j-1;
end;
Sorted[j] := Initial[i];
end;
Writeln('Отсортированный массив');
for i:=1 to 10 do Write(Sorted[i], ' ');
Writeln('');
end.