Объясните что этот оператор делает. TurboPascal

 for i:=1 to 9  
do begin       
k:=i;     
 for j:=i+1 to 10  do         
 if A[j]<A[k] then k:=j;   
    Alf:=A[k];       
A[k]:=A[i];     
 A[i]:=Alf;   
 end;