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]      begin
        k := j;
        x := item[j]
      end;
      item[k] := item[i];
      item[i] := x
    end
end;