отсортировать одномерный массив из 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 (xlt;a[j]) and (jgt;0) do
      begin
      a[j+1] := a[j];
      j := j-1
      end;
    a[j+1] := x
    end
end;