Procedure SelectionSort(var v:vetor;tam:integer);
var
   i,j,k,x : integer;
begin
   for i := 1 to tam-1 do
   begin
      k := i;
      x := v[i];
      for j := i+1 to tam do
      begin
         if v[j] < x then
         begin
            k := j;
            x := v[k];
         end;
      end;
      v[k] := v[i];
      v[i] := x;
   end;
end;