procedure TestSwap(var A: Integer; var B: Integer);
Exchange A <-> B only if B < A.
[See Also]: TestClip