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

TDaten = record
          vorname: string[100];
          stelle: integer;
          end;

var
daten:array of TDaten;


Listbox1.clear;
for k:=1 to zaehler do
     for i:=1 to zaehler-1 do
     begin
          if Daten[i].stelle > Daten[i+1].stelle then
             begin
             hilf:=Daten[i];
             Daten[i]:=Daten[i+1];
             Daten[i+1]:=hilf;
             end;

    end;
end;