Vielleicht solltest Du den Benutzern hier mehr als 1,5 Stunden Zeit geben?!?
Delphi-Quellcode:
type
TInt01 = array[0..1] of Integer;
TFeld = array of TInt01;
procedure BubbleSort(var Feld: TFeld);
var
Fertig: Boolean;
i: Integer;
Hilfe: TInt01;
begin
repeat
Fertig := True;
for i := 0 to High(Feld) do
if Feld[i, 1] > Feld[i+1, 1] then
begin
Hilfe := Feld[i];
Feld[i] := Feld[i+1];
Feld[i+1] := Hilfe;
Fertig := False;
end;
until Fertig;
end;
Ich hab's nicht getestet, aber probier's einfach mal!