bubblesort funzt ni need help

[The_Doomed]

Delphi-Quellcode:

var i,j,n:integer;
f:array[0..10]of string;
h:string;
begin
n:=listbox1.Items.Count-1;

for i:=0 to n do f[i+1]:=listbox1.Items[i];

for i:=1 to n-1 do
  for j := i+1 to n - 1 do
    if f[j]>f[j+1] then
      begin
      h:=f[j+1];
      f[j+1]:=f[j];
      f[j]:=h;
      end;

       for i:=0 to n+1 do
  begin
  listbox2.Items.Add(f[i+1]);
  end;

er tauscht immer noch nicht oder gibts es nicht sortiert aus