procedure Move(Source: Integer; Dest: Integer)

 It is important to remember that a move operation is equivalent to a delete of the object at the Source index followed by an insert of the object at the Dest index. This means that you must account for the fact that the Dest index may need to be decremented if the Source index is less than the Dest index.