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;                    

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:

procedure Sortiere(var aNumbers : array of double);
 var AbsDiff,Summ : double;
     pAi,pAj : ^double;
     pInt32 :^Cardinal;
     i,j : integer;
begin
 pInt32 := @AbsDiff;
 inc(pInt32);//wegen double und little endian
 pAi := @aNumbers[High(aNumbers)-1];
 // High(aNumbers) wird nur einmal abgefragt statt jedesmal
 for i:= High(aNumbers)-1 downto 0 do
   begin
   pAj := @aNumbers[High(aNumbers)];
   for j:=High(aNumbers) downto 1 do
     begin
     AbsDiff := pAi^-pAj^;
     // Vorzeichen auf + setzen
     pInt32^:=pInt32^ AND $7FFFFFFF;
     Summ :=pAi^+pAj^;
     pAi^ := (Summ-AbsDiff)*0.5;
     pAj^ := (Summ+AbsDiff)*0.5;
     dec(pAj);
     end;
   dec(pAi);
   end;
end;                    

1:
2:

for I := 1 to length(S) do
 inc(Haeuffigkeit[S[I]]);                    

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

procedure sortarray(var a:array of word); assembler;
label loop1, endloop;
asm
  lea cx,a
  loop1:
    mov ax,[cx]
    add cx,2
    mov bx,[cx]
    cmp ax,bx
    jz endloop {beide gleich -> nix zu tun}
    jns endloop { a größer b -> nix zu tun}
    sub cx,2
    mov bx,[cx]
    add cx,2
    mov ax,[cx] 
    endloop:
    push offset a
    call sizeof
    cmp cx,ax
    jnz loop1
end;                    

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

procedure ordnen
var(i : integer, mystringlist : Tstringlist, werte : array[1..6] of integer);

begin
mystringlist:=Tstringlist.create;

for i := 1 to 6 do begin
   Mystringlist.add(inttostr(werte[i]));
end;

mystringlist.sort;

for i := 1 to 6 do begin
   werte[i]:=strtoint(mystringlist.strings[i-1]);
end;


Mystringlist.free;

end;                    

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

procedure TForm1.Sort(var a:array of integer);
var t:integer;
i,j:integer;
begin
  t:=0;
  //Sortiere array
  for i:=0 to 8 do begin
    for j:=0 to 7 do begin
      if (a[j]>a[j+1]) then begin
        t:=a[j];
        a[j]:=a[j+1];
        a[j+1]:=t;
      end;
    end;
  end;
end;                    

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

procedure TForm1.Sort2(var a:array of integer);
var t:integer;
i,j:integer;
begin
  t:=0;
  //Sortiere array
  for i:=0 to 8 do begin
    for j:=0 to 7 do begin
      case (a[j]>a[j+1]) of
      True: begin
              t:=a[j];
              a[j]:=a[j+1];
              a[j+1]:=t;
            end;
      end;
    end;
  end;
end;