i := lo+1; j := up; tempr := r[s]; r[s] := r[lo]; h := lo; {*** Split file in two ***} while i<=j do begin while r[j].k >= tempr.k do begin j := j-1; if j