В массиве А[1..N] определить максимальное значение. Все элементы, находящиеся в массиве до максимального значения, увеличить на первое значение массив

uses crt;
const n=10;
var a:array [1..n] of integer;
i,p,max,d:integer;
begin
clrscr; randomize;
for i:=1 to n do
begin a[i]:=random(200);
write(a[i]:4,' ');
end;
max:=0;d:=0;
asm
lea si,a
mov cx,n-1
mov dx,0
mov bx,[si]
mov di,si
 
 
 @1:    mov ax,[di]
        add si,2
        inc dx
        cmp ax,[si]
        jge @2
        mov di,si
        mov d,dx
 @2:    loop @1
 
        mov ax,[di]
        mov max,ax
 
        lea si,a
        mov cx,d
 
        jcxz @cxzr
 
 @3:    mov ax,[si]
        add ax,bx
        mov [si],ax
        add si,2
        loop @3
 @cxzr:
{        add di,2
 @4:    mov si,di
        mov cx,n-1
        mov p,0
 @5:    mov cx,[si]
        cmp ax,[si+2]
        jge @6
        mov dx,[si+2]
        mov [si+2],ax
        mov [si],dx
        mov p,1
 @6:    add si,2
        loop @5
        cmp p,0
        jne @4}
 end;
 writeln;
 for i:=1 to n do
 write(a[i]:4,' ');
 writeln;
 writeln('max=',max);
  writeln('d=',d);
 readkey;
 end.

uses crt;
const n=10;
var a:array [1..n] of integer;
i,p,max,d:integer;
begin
clrscr; randomize;
for i:=1 to n do
begin a[i]:=random(200);
write(a[i],' ');
end;
asm
    lea si,a
    mov cx,n-1
    mov dx,[si]
    mov max, dx
 @1:    lodsw
    cmp ax,max
    jbe @2
    mov max, ax
    mov bx, si
 @2:     loop @1
    lea si,a
    sub bx, 2
 @3:     add [si], dx
    add si,2
    cmp si, bx
    jb @3
 end;
 writeln;
 for i:=1 to n do
 write(a[i],' ');
 writeln;
 writeln('max=',max);
 readkey;
 end.