Direct arranging of an array

Program Program01;
Uses Crt;
Const a:Array[0..9]Of Byte =(12,34,7,9,1,67,25,50,2,4);
Var i,j,k:Byte;
{Main}
Begin
     ClrScr;
     {show the elements of a}
     WriteLn('First Run:');
     For i:=0 To 9 Do WriteLn(i,'. element: ',a[i]:2);
     ReadLn;
     WriteLn('After Arranging:');
     {arranging}
     For i:=0 To 8 Do
        Begin
           For j:=i+1 To 9 Do
              Begin
                 If (a[j] < a[i]) Then
                    Begin
                       k:=a[j];
                       a[j]:=a[i];
                       a[i]:=k;
                    End;
              End;
        End;
     {write the results}
     For i:=0 To 9 Do WriteLn(i,'. element: ',a[i]:2);
     ReadKey;
End.

{
-= Note By FlamingClaw =-

-=Direct Arranging=-
The Rules:

Ar:Array[min..max]of element type
i,j,k:element type

Loop1 from i:=min To max-1
   Loop2 from j:=i+1 To max   <--this begins from the second element
      (*compare two numbers*)
      if (Ar[j]<Ar[i]) then  (*if smaller then exchange them*)
        k:=Ar[j]             (*save that value to k*)
        Ar[j]:=Ar[i]         (*Ar[j].element will A[i].element *)
        Ar[i]:=k             (*load the saved value to A[i].element*)
   end loop2
end loop1

-= Created By FlamingClaw =-
-=2009.03.22=-
}