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

procedure TForm1.bt_sortClick(Sender: TObject);
var i,j,Merke:Integer;
var anfang, ende :real;
begin
anfang:=time;
 for i:=ende-1 downto 1 do
  for j:=1 to i do
  if zahlenf[j]> zahlenf[j+1] then
     begin
     Merke:=zahlenf[j];
     Zahlenf[j]:= Zahlenf[j+1];
     zahlenf[j+1]:=Merke;
     end;
for i:=1 to ende do
ed_ausgabe.text:=ed_ausgabe.text+' '+IntToStr(zahlenf[i]);
ende:=time;
ed_zeit.text:=FloattoStrf((ende-Anfang))*24*3600,ffFixed,10,2);
end;