Sortierverfahren

[Delphie-Maus]

also ich hab jetzt hier irgendwas gemacht, weiß es selbst nicht so ganz...hab aus internet und meinem hefter irgendwas zusammengemotscht. bitte helft mir!




Procedure MergeSort( l, r : Integer );
var i, j, k, m : Integer;
N : real;
feld2Ddyn: array of array of integer;
Begin
If (l < r) Then
Begin
m:= (r+l) div 2;

MergeSort( l, m );
MergeSort( m+1, r );

For i:= l To m Do N[i]:= feld2Ddyn[i];
i:= l;

For j:= m+1 To r Do N[r+m+1-j]:= feld2Ddyn[j];
j:= r;

For k:= l To r Do
Begin
If (N[i] < N[j]) Then
Begin
feld2Ddyn[k]:= N[i];
inc( i );
End
Else
Begin
feld2Ddyn[k]:= N[j];
dec( j );
End;
End;
End;
End;