Maximum_T

[Leshiy1]

Здравствуйте всем.
Нужно найти максимальный элемент массива. Если в массиве элементы все положительные считает правильно. А если отрицательные то находит из отрицательных только наибольший. А надо чтобы в массиве были и положительные и отрицательные числа и находил наибольший положительный

Program Massiv;
 Uses Crt;
 const n=10;
 var a:array[1..n] of integer;
     max,i:integer;
 begin
   clrscr; randomize;
   for i:=1 to n do
   begin
     a[i]:=random(10)-5; textcolor(12);
     write(a[i]:3);
   end;
 asm
 lea si,a
 mov cx,n
 mov dx,[si]
 xor bx,bx
 @1: lodsw
    cmp ax,dx
 jb @2
    mov dx,ax
    mov bx,si
 @2: loop @1
     mov max,dx
     xor ax,ax
     mov cx,ax
 end; writeln;
 write(' ',max);
 Readkey;
 End.

А задача такая: В одномерном массиве найти максимальный элемент и заменить все отрицательные числа массива на этот элемент

Спасайте завтра экзамен

[Leshiy1]

 Program Massiv;
 Uses Crt;
 const n=10;
 var a:array[1..n] of integer;
     max,i:integer;
 begin
   clrscr; randomize;
   for i:=1 to n do
   begin
     a[i]:=random(10)-5; textcolor(12);
     write(a[i]:3);
   end;
 asm
 lea bx,a
 mov ax,[bx]{v ax zagruzhaem znachenie 1 peremennoy}
 mov cx,n {vsego elementov v massive}
 @1: cmp ax,[bx] {sravnivaem ax s tekushim elementom}
     jge @2{perehodim esli bolshe ili ravno}
     mov ax,[bx]
 @2: add bx,2{prodvigaem vpered}
     loop @1
     mov max,ax
 end; writeln; writeln;
 write(' Maximum=',max);
 Readkey;
 End.