procedure Exchange(Index1: Integer; Index2: Integer);

Swaps the position of two items in the Items array. Call Exchange to swap the positions of the items at positions Index1 and Index2 of the Items array. The indexes are zero-based, so the first item in the list has an index value of 0, the second item has an index value of 1, and so on.