Ragazzi..se chiedo in input dei valore e poi voglio che questi man mano vengano memorizzati in un vettore che verrà ordina come in questa procedura, come faccio??


codice:
 procedure bubblesort(var V:vettore); 
var i,j:integer; scambio:boolean; 

   procedure scambia(var x,y:integer); 
     var aux:integer; 
     begin 
          aux:=x; x:=y; y:=aux; 
     end; 

begin   {Bubblesort} 
   for j:=1 to n-1 do 
     repeat 
      scambio:=false; 
        for i:=1 to n-1 do 
             if V[i]>V[i+1] then 
               begin 
             scambia(V[i],V[i+1]); 
                  scambio:=true; 
           end; 
     until scambio=false 
end;