Zahlenreihenfolge mit 4 Zahlen ordnen und anzeigen lassen?

[leddl]

Leute, was macht es denn für einen Sinn, ihm auf Teufel komm raus den BubbleSort unterzujubeln? Er hat doch jetzt schon tausendmal gesagt, dass er von Arrays oder Sortieralgorithmen keinen blassen Schimmer hat und dass er sowieso den vorhandenen Algorithmus umformen soll

Hier mal mein Versuch der Implementierung. Ist nicht getestet, sondern nur schnell runtergeschrieben, wäre also höchstwahrscheinlich nochmal gut, ihn etwas genauer zu testen

Delphi-Quellcode:

procedure Sortieren;
begin
   zahl1 := StrToInt(Edit1.Text);
   zahl2 := StrToInt(Edit2.Text);
   zahl3 := StrToInt(Edit3.Text);
   zahl4 := StrToInt(Edit4.Text);

   //Zahl1 und Zahl2 sortieren
   if zahl1 > zahl2 then
   begin
      gross := zahl1;
      klein := zahl2;
   end
   else
   begin
      gross := zahl2;
      klein := zahl1;
   end;

   //Zahl3 sortiert einfügen
   if zahl3 > gross then
   begin
      //Nach unten verschieben
      mittelgross := gross;
      gross := zahl3
   end
   else
   begin
      if zahl3 > klein then
         mittelgross = zahl3;
      else
      begin
         //Nach unten verschieben
         mittelgross = klein;
         klein := zahl3;
      end;
   end;

   //Zahl4 sortiert einfügen
   if zahl4 > gross then
   begin
      //Nach unten verschieben
      mittel := mittelgross;
      mittelgross := gross;
      gross := zahl4;   
   end
   else
   if zahl4 > mittelgross then
   begin
      //Nach unten verschieben
      mittel = mittelgross;
      mittelgross := zahl4;
   end
   else
   if zahl4 > klein then
      mittel := zahl4;
   else
   begin
      //Nach oben verschieben
      mittel := klein;
      klein := zahl4;
   end;

   label1.caption := 'Die Reihenfolge lautet: ' + inttostr(klein) + ', ' + inttostr(mittel) + ', '
            + inttostr(mittelgross) + ', ' + inttostr(gross);
end;