Austausch-Sortieralgorithmus mit Prozeduren

[haui95]

So, habe mir Zeit genommen mich nochmal mit den Routinen zu beschäftigen und habe den "Austausch-Algorithmus" noch einmal neu in Quelltext verfasst, jedoch sortiert mir mein Programm nun Namen oder Wörter in einer ListBox. Vielleicht könnte jemand einmal drüber schauen. Bis jetzt funktioniert das Programm

Delphi-Quellcode:

const n = 100;

var
  Form1: TForm1;
  Feld: Array[1..n] of String;
  Zaehler: Integer;

implementation

{$R *.dfm}

procedure Hinzufuegen(Name: String);
begin
  Feld[Zaehler] := Name;
  inc(Zaehler);
end;

procedure Tausche(var Str1, Str2: String);
var
 Temp: String;
begin
  Temp := Str1;
  Str1 := Str2;
  Str2 := Temp;
end;

procedure Sortieren;
var
  i, j: Integer;
begin
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if (Uppercase(Feld[i]) > Uppercase(Feld[j])) then
        Tausche(Feld[i], Feld[j]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Zaehler := Zaehler + 1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  Hinzufuegen(Edit1.Text);
  ListBox1.Clear;
    for i := 1 to n do
      if (Feld[i] <> '') then
        ListBox1.Items.Add(Feld[i]);
        Edit1.Clear;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  i: Integer;
begin
 Sortieren;
 ListBox1.Clear;
 for i := 1 to n do
   if (Feld[i] <> '') then
     ListBox1.Items.Add(Feld[i]);
end;
end.