Zahlenreihenfolge mit 4 Zahlen ordnen und anzeigen lassen?

[Mexbuild]

@Bitsetter
Diese Methode ist sehr gut. Könntest du mir deine Version erläutern, wie sie im genaueren Funktioniert?

U.a:

Delphi-Quellcode:

procedure VertauscheZahlen(var zahlA, zahlB: integer);
var
  Puffer: integer;
begin
  Puffer := zahlA;
  zahlA := zahlB;
  zahlB := Puffer;
end;

und...

procedure VergleicheZahlen(var zahlA, zahlB: integer);
begin
if zahlB < zahlA then
VertauscheZahlen(zahlA, zahlB);
end;

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  zahl1, zahl2, zahl3, zahl4: integer;
begin
  zahl1 := StrToInt(Edit1.Text);
  zahl2 := StrToInt(Edit2.Text);
  zahl3 := StrToInt(Edit3.Text);
  zahl4 := StrToInt(Edit4.Text);

  VergleicheZahlen(zahl1, zahl2);
  VergleicheZahlen(zahl1, zahl3);
  VergleicheZahlen(zahl1, zahl4);

  VergleicheZahlen(zahl2, zahl3);
  VergleicheZahlen(zahl2, zahl4);

  VergleicheZahlen(zahl3, zahl4);

Was passiert bei "VergleicheZahlen"? Wird dort das gleiche wie bei "max" gemacht? Und was hat es mit dem Puffer aus sich? (Erste zitierte Prozedur)