Сортировка пузырьком

[Катрин72]

procedure TForm1.Button1Click(Sender: TObject);
begin
  if od1.Execute then
    listbox1.Items.LoadFromFile(od1.FileName);  
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  i,j,k: integer;
begin
  listbox2.Clear;
  for i := 0 to listbox1.Items.Count-1 do
  begin
    for j := 0 to Length(listbox1.Items[i])-i do
if Length(listbox1.Items[j]) >Length(listbox1.Items[j+1])  then
begin
K:= Length(listbox1.Items[j]);
Length(listbox1.Items[j]):=Length(listbox1.Items[j+1]);
Length(listbox1.Items[j+1]):=k;
end;
      listbox2.Items.Add(listbox1.Items[i]);

end;
end.

Файл обычный текстовый загружается и нужно обеспечить сортировку пузырьком и вывести в ListBox2



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[denisbrain]

Сообщение от Катрин72

procedure TForm1.Button1Click(Sender: TObject);
begin
if od1.Execute then
listbox1.Items.LoadFromFile(od1.Fil eName);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
i,j,k: integer;
begin
listbox2.Clear;
for i := 0 to listbox1.Items.Count-1 do
begin
for j := 0 to Length(listbox1.Items[i])-i do
if Length(listbox1.Items[j]) >Length(listbox1.Items[j+1]) then
begin
K:= Length(listbox1.Items[j]);
Length(listbox1.Items[j]):=Length(listbox1.Items[j+1]);
Length(listbox1.Items[j+1]):=k;
end;
listbox2.Items.Add(listbox1.Items[i]);

end;
end.




Файл обычный текстовый загружается и нужно обеспечить сортировку пузырьком и вывести в ListBox2

http://netsoftware.ucoz.ru/news/puzy.../2012-06-08-90