Zahlenreihenfolge mit 4 Zahlen ordnen und anzeigen lassen?

[bitsetter]

Moin moin,

hier noch eine andere Variante ohne Array:

Delphi-Quellcode:

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

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

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);

  label1.caption := 'Die Reihenfolge lautet: ' + inttostr(zahl1) + ', ' + inttostr(zahl2) + ', '
    + inttostr(zahl3) + ', ' + inttostr(zahl4);
end;