Bubble Sort

// PSC:1.0 BubbleSort
// Description: Sorts a list of n numbers into ascending order with bubble sort

PROCEDURE swap(list, i, j)
  LET temp = list[i]
  LET list[i] = list[j]
  LET list[j] = temp
END PROCEDURE

BEGIN BubbleSort
  INPUT "How many numbers? " n
  FOR k FROM 0 TO n - 1
    INPUT "Next number: " value
    LET list[k] = value
  END FOR

  LET swapped = TRUE
  WHILE swapped = TRUE
    LET swapped = FALSE
    FOR i FROM 0 TO n - 2
      IF list[i] > list[i + 1]
        CALL swap(list, i, i + 1)
        LET swapped = TRUE
      END IF
    END FOR
  END WHILE

  OUTPUT "Sorted list:"
  FOR EACH item IN list
    OUTPUT item
  END FOR
END