Ошибка при сортировке массива

const n = 20;
 
var a:array [1..n] of byte;
    p:pointer;
    i:byte;
 
begin
    randomize;
 
    writeln('source:');
    for i:=1 to n do
    begin
        a[i]:= random(100);
        write(a[i]:4);
    end;
 
    p:= @a;
 
    asm
        push es
 
        les di,p 
 
        xor bx,bx 
        mov dx,N
        dec dx  
 
        @c1:
            mov cx,dx
            sub cx,bx
 
            mov si,di
            add si,bx
 
            @c2:
                mov al,[es:si]
                mov ah,[es:si+1]
 
                cmp ah,al
                jns @m1
                jmp @em
 
                @m1:
                   mov [es:si],ah
                   mov [es:si+1],al
                @em:
                   inc si
            loop @c2
 
            mov cx,dx
            sub cx,bx
 
            mov si,di
            add si,dx
 
            @c3:
                mov al,[es:si]
                mov ah,[es:si-1]
 
                cmp al,ah
                jns @m2
                jmp @em2
 
                @m2:
                   mov [es:si],ah
                   mov [es:si-1],al
                @em2:
                   dec si
            loop @c3
 
            inc bx
            dec dx
 
            mov cx,dx
            sub cx,bx
        loop @c1
 
        pop es
    end;
 
    Writeln('sorted:');
    for i:=1 to n do
        Write(a[i]:4);
 
    readln;
end.