const LENGTH : int := 10 %%Number of number
var NUM : array 1 .. LENGTH of int
var NUMTEMP : int %% temp variable
var KEY : string (1)
var NUMCHECK : int := 0

put "unsorted Array"

for r : 1 .. LENGTH

    NUM (r) := Rand.Int (1, 100)

    put NUM (r), " " ..


end for

put " "

for i : 1 .. LENGTH
    for j : 1 .. LENGTH - 1

        NUMCHECK += 1

        if NUM (i) < NUM (j) then
            NUMTEMP := NUM (i)
            NUM (i) := NUM (j)
            NUM (j) := NUMTEMP



        end if

    end for
end for


put "sorted array"

for r : 1 .. LENGTH

    put NUM (r), " " ..

end for
put "checked", NUMCHECK