Selection Sort

Program Pzim ;
Const
   total = 10;
Type
   vetor = array [1..total] of integer;
Var
   k,i,j,aux: integer;
   vet: vetor;
Begin
   write('Vetor: ');
   for k:=1 to total do      //criando vetor randômico
   Begin
      vet[k]:= random(9)+1;
      write(vet[k]);
   End;

   for i:=1 to total do       //SelectionSort//
      for j:=i+1 to total do
      Begin
         if (vet[i] > vet[j]) then
         Begin
             aux:= vet[i];
             vet[i]:= vet[j];
             vet[j]:= aux;
         End;
      End;


   writeln;                   //Mostra Vetor ordenado
   writeln;
   write('Vetor ordenado: ');
   for k:=1 to total do
      write(vet[k]);
   readln;
End.