procedure Exchange(Index1, Index2: Integer) 

Меняет местами элементы.

Параметры:

• Index1 - индекс первого элемента.
• Index2 - индекс второго элемента.