Brauche Hilfe bei Sourcecode von Shellsort-Sortieralgo

[Andy5050]

Delphi-Quellcode:

procedure ShellSort(var aSort: array of integer);
var
  iI, iJ, iK, iSize: integer;      // Deklaration der VARiablen//   
  wTemp: integer;
begin
  iSize := High(aSort);        // iSize ist die Menge aller Elemente im Array//
  iK := iSize shr 1;           // iK ist das mittlere Element//
  while iK > 0 do
  begin
    for iI := 0 to iSize - iK do // iI sind die Werte links von iK// 
    begi
      iJ := iI;               // iJ sind die zu sortierenden Werte// 
      while (iJ >= 0) and (aSort[iJ] > aSort[iJ + iK]) do  
      begin
        wTemp := aSort[iJ];
        aSort[iJ] := aSort[iJ + iK];
        aSort[iJ + iK] := wTemp;
        if iJ > iK then
          Dec(iJ, iK)   // Die 
        else
          iJ := 0 ;
        ZeichneVisu(a);
        Delay(50);
      end;
    end;
    iK := iK shr 1;
  end;
  end;

ist das soweit richtig?

[edit=SirThornberry]Delphi-Tags gesetzt - nächstes mal bitte selbst machen Mfg, SirThornberry[/edit]