1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.ExchangePositionsInArray(InputArray : TMyArray; Index1,Index2 : integer);
begin
  if (Index1<High(InputArray)) and (Index2<High(InputArray)) then
  begin
    //Das Array um 1 verlängern
    SetLength(InputArray,Length(InputArray)+1);
    //Den zweiten Eintrag ans Ende kopieren, um ihn dort 'zwischenzulagern'
    InputArray[High(InputArray)]:=InputArray[Index2];
    //Den zweiten Eintrag mit dem ersten überschreiben
    InputArray[Index2]:=InputArray[Index1];
    //Den ersten Eintrag mit dem letzten überschreiben, der identisch mit dem zweiten ist
    InputArray[Index1]:=InputArray[High(InputArray)];
    //Das Array wieder um eins verkürzen
    SetLength(InputArray,Length(InputArray)-1);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:

procedure swap(aArray: TMyArray; index1:integer; Index2:integer)
var tmp: integer; //oder was auch immer in TMyArray drinsteckt
begin
  tmp := aArray[index1];
  aArray[index1] := aArray[index2];
  aArray[index2] := tmp;
end;