Procedure SwapWith(This:Word);

    The value of the current item is  swapped  with the value at position
    This.  Once complete, the  current  item  is the value of the item at
    This, that is, the position of the current item has not changed.