Sortiervorgang kleinste wert nach vorne holen

[de_vine]

Hallo,bitte um Hilfe!

ALSO:

Ich habe ein problem und zwar:

Ich habe ein ARRAY(Z)[1..100] mit zufallszahlen.
möchte die nun so ordnen,dass die kleinste Zahl in Z[1]
und die größte in Z[100]ist

habe bereits ein Programm geschrieben ABER es funktioniert irgenwie nicht
wenn ich die sortierten Zahlen in ein memo einblenden lasse
ist irgendwie die letzte Zahl immer 0 und die erste zahl Z[1]
WIRD DIE GRÖGERE VON DEN BEIDEN ERSTEN ZAHLEN

Mein nichts funktionsfähiges programm:

I:=1;
repeat
Begin
IF Z[I]<Z[I+1] then
hilf:=z[I];
Z[I]:=Z[I+1];
Z[I+1]:=hilf;
I:=I+1;
END;
UNTIL I=E+1;

DANKE IM VORAUS!!!!!!!!!!!