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