bubble sort ausgabeproblem

[ko3rby]

Das ist mein Source zu meinem oberen Problem, das Problem ist er vertauscht nicht, gibt nur 0en und die kleinste Zahl aus. Und vertauscht die anderen daten nicht. HILFE-.- Schreib da am Freitag ne Klausur ...


[delphi]
begin
for j := 1 to 5 do
begin
for i := 1 to 5 do
if speicher[i].Nummer>speicher[i+1].Nummer then
begin
buffer:=speicher[i].Nummer;
speicher[i].Nummer:=speicher[i+1].nummer;
speicher[i+1].nummer:=buffer;

end;

for i:= 1 to 5 do
listbox1.items.add(inttostr(speicher[i].Nummer));
listbox2.items.add(speicher[i].Autor);
listbox3.Items.add(speicher[i].Titel);
listbox4.Items.add(inttostr(speicher[i].Bestand));
end;