ADA - problem z sortowaniem

witam

czy wiecie może co źle robie pisząc program który sortuje ciag 10 podanych liczb?

with ada.text_io, ada.integer_text_io;
use ada.text_io, ada.integer_text_io;

procedure sortuj is 

 type ciag is array (1..10) of integer;
 el:ciag;
 temp:integer;
 
 begin
 
 for k in 1..10 loop
  put("Podaj element nr "); put(k); put(" ");
  get(el(k));
  
  end loop;
  
 for k in ciag'range loop
   
   if el(k) > el(k+1) then
    temp:=el(k);
    el(k):=el(k+1);
    el(k+1):=temp;
    put(el(k));
   end if;
   
 end loop;
 
 for k in ciag'range loop
     put(el(k));
 end loop;
 
 end sortuj;
    
    
    

nie bardzo wiem jak powinien wyglądać sam mechanizm sortowania.. reszta jest OK
prosze o pomoc