Мой личный Merge или много неработающего кода

procedure merge(var ar,tmp:arr; left,middle,right:integer);
    var
        i_r,i_l,cnt,i:integer;
    begin
        cnt:=left;
        i_l:=left;
        i_r:=middle+1;
        while (cnt<=right) do
        begin
            if (i_l>middle) then    
            begin
                tmp[cnt]:=ar[i_r];
                i_r:=i_r+1;
                cnt:=cnt+1;
            end;
            if (i_r>right) then
            begin
                tmp[cnt]:=ar[i_l];
                i_l:=i_l+1;
                cnt:=cnt+1;
            end;
            if (i_l<=middle) and (i_r<=right) then
            begin
                if ar[i_l]<ar[i_r] then
                begin
                    tmp[cnt]:=ar[i_l];
                    i_l:=i_l+1;
                    cnt:=cnt+1;
                end
                else
                begin
                    tmp[cnt]:=ar[i_r];
                    i_r:=i_r+1;
                    cnt:=cnt+1;
                end;
            end;
        end;
        for i:=left to right do
            ar[i]:=tmp[i];
    end;    
procedure merge_sort(var ar,tmp:arr; left,right:integer);
    var
        middle:integer;
    begin
        if left<right then
        begin
            middle:=(left+right) div 2;
            merge_sort(ar,tmp,left,middle);
            merge_sort(ar,tmp,middle,right);
            merge(ar,tmp,left,middle,right);
        end;
    end;