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

Wenn a grösser b, dann vertausche a und b.
(a ist ja vorne auf keinen Fall richtig, weil ja b kleiner ist)

Wenn jetzt b größer c, dann vertausche b und c.
(Dann steht ja das b auch nicht an der richtigen Stelle (das könnte auch das alte a sein..), also vertauschen wir das um eins nach hinten.
Jetzt steht die größte Zahl schonmal ganz hinten.)

(Jetzt noch einmal überprüfen, ob vorne alles stimmt:)
Wenn jetzt a größer b, dann vertausche a und b.                    

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

procedure TForm1.Button1Click(Sender: TObject);
var
  tmpWert:string;
begin
  if  (strtoint(edit1.text))>(strtoint(edit2.text)) then begin
    tmpWert:=edit1.text;
    edit1.text:=edit2.text;
    Edit2.text:=tmpWert;
  end;
  if  (strtoint(edit2.text))>(strtoint(edit3.text)) then begin
    tmpWert:=edit2.text;
    edit2.text:=edit3.text;
    Edit3.text:=tmpWert;
  end;
  if  (strtoint(edit1.text))>(strtoint(edit2.text)) then begin
    tmpWert:=edit1.text;
    edit1.text:=edit2.text;
    Edit2.text:=tmpWert;
  end;
end;
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 TForm1.Button1Click(Sender: TObject);
var
  i,a:integer;
  edt1,edt2,edt3,edt4,edt5:string;
  tmpWert:String;
begin
  edt1:=edit1.text;
  edt2:=edit2.text;
  edt3:=edit3.text;
  edt4:=edit4.text;
  edt5:=edit5.text;
  Listbox1.Items.Add(edt1);
  Listbox1.Items.Add(edt2);
  Listbox1.Items.Add(edt3);
  Listbox1.Items.Add(edt4);
  Listbox1.Items.Add(edt5);
  for a:=0 to 100 do begin
    for i:=0 to (Listbox1.Items.Count -2) do begin
      IF (StrToInt(Listbox1.Items.Strings[i]))>(StrToInt(Listbox1.Items.Strings[i+1])) then begin
        tmpWert:=Listbox1.Items.Strings[i];
        Listbox1.Items.Strings[i]:=Listbox1.Items.Strings[i+1];
        Listbox1.Items.Strings[i+1]:=tmpWert;
      end;
    end;
  end;
end;                    

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

BEGIN
  FOR i := minsort+1 TO maxSort DO
  BEGIN
    FOR j :=  maxSort DOWNTO i  DO
    BEGIN
      IF sortar[j-1] > sortar[j] THEN
        tauschen(j,j-1);
    END;
  end;
end;