zu blöd für MinSort...

[avemaria]

Hi! Ich habe ein kleines Problem. Wenn ich ein Feld sortieren will, erscheint in der sortierten Menge am Anfang einfach eine 0 !
Kann mir jemand (sogar für mich verständlich) das mal erklären?
Ich habe hier jetzt mal (für den Fall) auch die Prozedur, um das Feld aufzustellen.
Danke im Voraus!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

begin
 randomize;
 listbox1.clear;
 for anz:=1 to 5 do begin
  a[anz]:=round(random*1000)/100;
  listbox1.Items.Add(floattostr(a[anz]));

 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j, pos: integer;
var hilf: real;
begin
 for i:= 1 to anz do begin
  pos:=i;
  for j:= i+1 to anz do begin
   if a[j]<a[i] then pos:=j;
   hilf:=a[pos];
   a[pos]:= a[i];
   a[i]:=hilf;
  end;
 end;
 listbox1.clear;
 for i:=1 to anz do listbox1.Items.Add(floattostr(a[i]));
end;

Noch mal danke!