Lösungsweg für Mischkarton´s gesucht !

[Bjoerk]

Habs mal durchlaufen lassen. Schalt mal die Bereichsprüfung an. In der Packen wird p zu groß? Und ist die Sort so richtig (Sollten nicht eher I und J verglichen werden ?

Edit:

Ich meinte eigentlich das:

Delphi-Quellcode:

procedure SortMenge;
var
  I, J: Integer;
  Temp: Bestellung;
begin
  for I := 0 to High(Zahlen) - 1 do
    for J := I + 1 to High(Zahlen) do
      if Zahlen[I].Menge > Zahlen[J].Menge then
      begin
        Temp := Zahlen[I];
        Zahlen[I] := Zahlen[J];
        Zahlen[J] := Temp;
      end;
end;

procedure SortInhalt;
var
  I, J: Integer;
  Temp: Bestellung;
begin
  for I := 0 to High(Zahlen) - 1 do
    for J := I + 1 to High(Zahlen) do
      if Zahlen[I].Inhalt > Zahlen[J].Inhalt then
      begin
        Temp := Zahlen[I];
        Zahlen[I] := Zahlen[J];
        Zahlen[J] := Temp;
      end;
end;