Problem beim Verwenden von Excel

[diavy]

Ich habe nun ein weiteres Problem.

Und zwar wollte ich zum Sortieren von Resultaten quicksort benutzen.

Diebezüglich mein Code:

Delphi-Quellcode:

procedure switch(var a,b:integer);
var aux:integer;
begin
aux:=a;
a:=b;
b:=aux;
end;

function seperate(var a:array of integer;l,r:integer):integer;
var i,j,pivot:integer;
begin
pivot:=a[r];
i:=l; j:=r-1;
while i<=j do
        if a[i]<pivot then inc(i)
        else if a[j]>pivot then j:=j-1
        else    begin
                switch(a[i],a[j]);
                inc(i);
                j:=j-1;
                end;
switch(a[i],a[r]);
result:=i;
end;

procedure quicksort(var a:array of integer;l,r:integer);
var i:integer;
begin
if l<r then begin
        i:=seperate(a,l,r);
        quicksort(a,l,i-1);
        quicksort(a,i+1,r);
        end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var test:array[1..20] of integer;I:integer;
begin
test[1]:=21;test[2]:=7;test[3]:=12;test[4]:=99;test[5]:=72;test[6]:=3;test[7]:=50;test[8]:=59;test[9]:=17;test[10]:=190;
test[11]:=8;test[12]:=19;test[13]:=44;test[14]:=87;test[15]:=6;test[16]:=0;test[17]:=55;test[18]:=59;test[19]:=16;test[20]:=29;
quicksort(test,1,20);
for i:=20 downto 1 do
ShowMessage(IntToStr(test[i]));
end;

Dies klappt soweit auch, bis auf die Stelle 1 im Array, die bleibt nämlich unverändert. Mit den Beispielwerten die ich zum Test eingefügt habe, wird so mit der for downto Schleife als letzte MessageBox 21 angezeigt.

Ich bin den Code mehrmals durchgegangen und kann den Fehler nicht finden...