Вставка

program Insert;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

type
   MyArray = array of Integer;

function InsertSort(IntArray: MyArray): MyArray;
var
   i, j, Len, CurElement: INteger;
begin
   Len := Length(IntArray) - 1;
   for i := 1 to Len do
   begin
      CurElement := IntArray[i];
      j := i;
      while (IntArray[j - 1] > CurElement) and (j > 0) do
      begin
         IntArray[j] := IntArray[j - 1];
         Dec(j);
      end;
      IntArray[j] := CurElement;
   end;
   InsertSort := IntArray;
end;


var
   IntArray: MyArray;
   i: Integer;

begin
   Randomize;
   SetLength(IntArray, 10);
   for i := 0 to 9 do
   begin
      IntArray[i] := Random(20) - 10;
      Write(IntArray[i], ' ');
   end;
   IntArray := InsertSort(IntArray);
   Writeln;
   for i := 0 to 9 do
   begin
      Write(IntArray[i], ' ');
   end;
   Readln;
end.