Hilfe zum programmieren von mergesort mit delphi

[kleinewolke7]

Delphi-Quellcode:

implementation

{$R *.dfm}
       const n=10;
type tab=array[1..n] of integer;
var t:tab;

type data=array[1..n] of integer;
var d:data;

procedure TForm1.Button1Click(Sender: TObject);
procedure mergesort(l,r:integer);
var i, j, k, m : 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 t[i]:= D[i];
    i:= l; 

    For j:= m+1 To r Do t[r+m+1-j]:= D[j];
    j:= r; 

    For k:= l To r Do 
    Begin 
      If (t[i] < t[j]) Then
      Begin 
        D[k]:= t[i];
        inc( i ) ;
        end

      Else
     
      Begin
        D[k]:= t[j];
        dec( j );
        end;
   for i:=1 to n do listbox1.Items.add(inttostr(t[i]));
      end; (*hier kommt ein fehler, und ich weiß nicht,wie ich das beheben kann*)
      end;
      end;
      end.

[edit=Sharky]Delphi-Tags eingefügt. Mfg, Sharky[/edit]