1:
2:

if (a[i]>a[j])
  tausche(a[i],a[j]);					

1:
2:

while (a[i]>a[j])
  tausche(a[i],a[j]);					

1:
2:
3:

int[] values = { 5, 2, 8, 3, 22, 1, 7 };
Array.Sort<int>(values);
Array.Reverse(values);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

uses
  Classes;

  function CompareInts(left, right : PInteger) : Integer;
  begin
    Result := left^ - right^;
  end;

  procedure Print(list : TList);
  var
    i : Integer;
  begin
    for i := 0 to list.Count - 1 do
    begin
      Writeln(PInteger(list[i])^);
    end;
  end;

var
  list : TList;

  procedure Add(const items : array of Integer);
  var
    i : Integer;
  begin
    for i := Low(items) to High(items) do
    begin
      list.Add(@items[i]);
    end;
  end;
begin
  list := TList.Create();
  try
    Add([5, 2, 8, 3, 22, 1, 7]);

    list.Sort(@CompareInts);

    Print(list);
  finally
    list.Free();
  end;
end.					

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

procedure Sortiere(var a,b : integer);
 var temp : integer;
begin
 temp := a;

 a := (-abs(a-b)+(a+b)) div 2;
 b := (abs(temp-b)+(temp+b)) div 2;
end;					

1:
2:
3:
4:

procedure Sortiere(int x):int
begin
result:=x;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

procedure Sortiere(var aNumbers : array of double);
 var temp : double;
     i,j : integer;
begin
 for i:=Low(aNumbers) to High(aNumbers)-1 do
  for j:=i+1 to High(aNumbers) do
  begin
   temp := aNumbers[i];
   aNumbers[i] := (-Sqrt(Sqr(aNumbers[i]-aNumbers[j]))+
                           (aNumbers[i]+aNumbers[j]))*0.5;
   aNumbers[j] := (Sqrt(Sqr(temp-aNumbers[j]))+
                           (temp+aNumbers[j]))*0.5;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
 var zahlen : array of double;
     i : integer;
begin
 setlength(zahlen,100);
 for i:=Low(zahlen) to High(zahlen) do zahlen[i]:=Random*100;
 Sortiere(zahlen);
 for i:=Low(zahlen) to High(zahlen) do
  memo1.lines.add(floattostr(zahlen[i]));
end;