отсортировать одномерный массив из 10 элементов методом вставки

procedure SortByInsert(var a: Vector; kol:integer);{Сортировка вставкой}var  i, j: integer;  x: integer; {заменить на тип элементов массива}begin  for i := 2 to kol do    begin    x := a[i];    j := i-1;    while (x<a[j]) and (j>0) do      begin      a[j+1] := a[j];      j := j-1      end;    a[j+1] := x    endend;