sort( r, lo, up )
     ArrayToSort r;
     int lo, up;

     {int i, j;
     ArrayEntry tempr;
     for ( i=up-1; i>=lo; i-- ) {
          tempr = r[i];
          for ( j=i+1; j<=up && (tempr.k>r[j].k); j++ )
               r[j-1] = r[j];
          r[j-1] = tempr;
          }
     };