1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

procedure TForm1.merge_sort(anfang, ende: integer);
var
    i: integer;
begin
if ende > anfang then
 begin
    setlength(hilfsfeld,ende+1);
    mitte := (anfang + ende) div 2;
    mitte2:=mitte+1;
    merge_sort(anfang,mitte);
    merge_sort(mitte2,ende);
    m:=mitte+1;
    a:=anfang;
  for i := Anfang to ende do
  begin
   if  sortfeld1[a] < sortfeld1[m] then
   begin
     hilfsfeld[i] := sortfeld1[a];  
    if anfang < mitte then
      inc(a);
   end
     else
       begin
         hilfsfeld[i] := sortfeld1[m];
           if mitte+1 < ende then
             inc(m);
       end;
  end;
  for i := anfang to ende do
   sortfeld1[i] := hilfsfeld[i];
 end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Sortfeld = (1,2,3,4,5,6)
a= 0 ,mitte= 5 div 2 = 2; m=3
i   a   m   S[a]  S[m] H[i]
0   0   3     1    4    1    S[a]< S[m] a wird erhoeht
1   1   3     2    4    2    S[a]< S[m] a wird erhoeht
2   2   3     3    4    3    S[a]< S[m] a wird nicht mehr erhoeht
3   2   3     3    4    3    S[a]< S[m] a wird nicht mehr erhoeht
4   2   3     3    4    3    S[a]< S[m] a wird nicht mehr erhoeht
5   2   3     3    4    3    S[a]< S[m] a wird nicht mehr erhoeht
6   2   3     3    4    3    S[a]< S[m] a wird nicht mehr erhoeht