Const
  n = 8;

Type
  TType = Integer;
  arrType = Array[1 .. n] Of TType;

Const
  a: arrType =
       (44, 55, 12, 42, 94, 18, 6, 67);

Procedure Insert(Var source, sorted: arrType);
  Var
    i, j: Integer;
    x: TType;
  Begin
    move(source, sorted, SizeOf(arrType));

    For i := 1 To n do
      Begin
        x := sorted[i];
        j := Pred(i);
        While x < sorted[j] Do
          Begin
            sorted[Succ(j)] := sorted[j]; Dec(j);
          End;
        sorted[Succ(j)] := x;
      End;
  End;

Var
  b: arrType;

Begin
  Insert(a, b);
End.