brauch hilfe zum Thema Sortieralgorithmus !!!Dringend!!!

[neuronet]

Versuch's mal so:

Delphi-Quellcode:

procedure minimumsuche(n:integer; var h:array of integer);
var
  i,hilfsvar:integer;
  fertig: boolean
begin
  repeat
    fertig:=true;
    for i:=1 to n-1 do Begin
      if h[i] > h[i+1] then Begin
        hilfsvar:=h[i];
        h[i]:=h[i+1];
        h[i+1]:=hilfsvar;  
        fertig:=false;
      end;
    end;
  until fertig;
end;