procedure TestSwap(var A: Integer; var B: Integer);

Description

Exchange A <-> B only if B < A.

[See Also]: TestClip