Sorting Sequence

var numbers : array 1 .. 9 of int := init (2, 2, 1, 3, 3, 3, 2, 3, 1)
var switchingPos : array 1 .. upper (numbers) of string
var count, temp : int := 0
var posNum := 1

loop
    for i : posNum .. 9
        if numbers (i) < numbers (posNum) then
            temp := numbers (posNum)
            numbers (posNum) := numbers (i)
            numbers (i) := temp
            count += 1
            switchingPos (count) := intstr (posNum) + "   " + intstr (i)
        end if
    end for
    exit when posNum = 9
    posNum += 1
end loop

put count
put "--------"

for i : 1 .. count
    put switchingPos (i)
end for