Where are the data structures? [0]
MIN := X[N]; k := N;
for j := N-1 step -1 until 1 do
if X[j] < MIN then
begin MIN := X[j]; k := j;
end;