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

благодарю))

procedure SortBySelect(var a: Vector; kol:integer);{Сортировка выбором}var   i, j, k: integer;  x: integer; {заменить на тип элементов массива}begin  for i := 1 to kol-1 do    begin    k := i;    x := item[i];    for j := i+1 to count do      if item[j]<x then      begin        k := j;        x := item[j]      end;      item[k] := item[i];      item[i] := x    endend;