Найти сумму элементов массива (Pascal со вставками ассемблера)

{$asmmode intel}
uses crt;
label next,odd;
var arr:array[1..10]of word;
    i,sum:longint;
begin
    randomize;
    for i:=1 to 10 do
    begin
        arr[i]:=random($FFFF);
        writeln('Arr[',i,']=',arr[i]);
    end;
    asm
        mov ecx,10
        lea esi,arr
        xor ax,ax
        mov bx,ax
next:
        xor word ptr[esi],0FF00h            
        test byte ptr[esi],1
        jnz odd
        add ax,[esi]
        adc bx,0
odd:
        add esi,2
        loop next
        mov word ptr[sum],ax        
        mov word ptr[sum+2],bx
    end;
    writeln;
    for i:=1 to 10 do
        writeln('Arr[',i,']=',arr[i]);
    writeln;
    writeln(sum);
    readkey;
end.

{$asmmode intel}
uses crt;
label next,odd;
var arr:array[1..10]of word;
    i,sum:longint;
    
    test : cardinal;
 
begin
    randomize;
    for i:=1 to 10 do
    begin
        arr[i]:=random($FFFF);
        writeln('Arr[',i,']=',arr[i]);
    end;
    asm
        mov ecx,10
        lea esi,arr
        xor ax,ax
        mov bx,ax
next:
        add ax,[esi]
        adc bx,0
 
        add esi,2
        loop next
        mov word ptr[sum],ax        
        mov word ptr[sum+2],bx
    end;
    writeln;
 
    test := 0;
    for i:=1 to 10 do
        test := arr[i] + test;
    
    writeln;
    writeln(sum);
 
    writeln ( 'test = ', test );
 
    readkey;
end.