массив из натуральных чисел, Pascal+Assembler Опции

[CooLLeR-zzz]

Создать прогрмму , где даны 10 натуральных чисел. Вывести на экран максимальные и минимальные числа.
Сидим с братом и не можем догнать ход проги , поняли одно что можно сделать через память или массив.
Пожалуста помогите народ , буду весьма благодарен !!!!!!!!!!!!!!!!!

[xds]

program MinMax;

var
  a: array[1..10] of Integer;
  i, Min, Max: Integer;

begin
  Randomize;
  for i := 1 to 10 do
    begin
      a[i] := Random(101) - 50;
      Write(a[i], ' ');
    end;
  Writeln;

  asm
    cld
    lea si,a
    lodsw
    mov bx,ax
    mov dx,ax
    mov cx,9
  @@1:
    lodsw
    cmp ax,bx
    jge @@2
    mov bx,ax
  @@2:
    cmp ax,dx
    jle @@3
    mov dx,ax
  @@3:
    loop @@1
    mov Min,bx
    mov Max,dx
  end;

  Writeln('Min = ', Min);
  Writeln('Max = ', Max);
end.