procedure sort( var r : ArrayToSort; lo, up : integer );