Sortiervorgang kleinste wert nach vorne holen

[Noedel]

damit wir dem armen kerl mal helfen ... ^^

Code:

procedure Tsortierverfahren.bubblesort;
var
  hilfe,i:longint;
  vertauscht:boolean;
begin
  // anzahl = obere grenze des arrays  
  Repeat
    vertauscht:=false;
    For i:=1 to anzahl-1 do
      IF kopie[i]>kopie[i+1] Then
        begin
         hilfe:=kopie[i];
         kopie[i]:=kopie[i+1];
         kopie[i+1]:=hilfe;
         vertauscht:=true;
        end;
        dec(anzahl);
     Until vertauscht=false;
end;

Das sortierverfahren nennt sich bubblesort

danach musst du nurnoch ausgeben...
PS. ein memo ist dafür wohl nicht das geeignetste object.... benutz besser ne listbox