Запустить задачу одномерного массива в Pascal

.386
    .model flat, stdcall[COLOR="Black"][/COLOR]
    option casemap :none
    include \masm32\include\windows.inc
    include \masm32\include\user32.inc 
    include \masm32\include\masm32.inc
    include \masm32\include\kernel32.inc
    include \masm32\macros\macros.asm
    includelib \masm32\lib\user32.lib 
    includelib \masm32\lib\masm32.lib
    includelib \masm32\lib\kernel32.lib
Bsize equ 11
Bsize2 equ 11
.data
buf db Bsize dup(1,2,3,2,5,6,7,8,9,10,11,"0")
buf2 db Bsize2 dup(?)
SizeLen dd ?
.code
start:
xor eax,eax
xor esi,esi
Call Lenght
next:
cmp esi,SizeLen
jae alter
mov bh,buf[esi]
cmp bh,buf[esi+1]
jae after
inc esi
jmp next
after:
mov bl,buf[esi+1]
inc esi
jmp next
loop next
 
alter:
xor edi,edi
xor esi,esi
cmp bl,0
jnz @1
mov bl,buf[0]
@1:
jmp nxt
nxt:
cmp esi,SizeLen
jae alter2
mov bh,buf[esi]
cmp bh,bl
jz zero
sub bh,bl
mov buf2[edi],bh
inc edi
inc esi
jmp nxt
zero:
mov buf2[edi],bl
inc edi
inc esi
jmp nxt
loop nxt
 
alter2:
invoke ExitProcess,0
 
 
 
Lenght proc
cmp buf[esi],"0"
jnz nzero
mov SizeLen,eax
xor esi,esi
ret
nzero:
inc eax
inc esi
jmp Lenght
Lenght endp
 
end start