Сортировка между мин и макс

[deus-expo]

Требуется написать программу на встроенном ассемблере ТурбоПаскаля.
Найти минимум и максимум, и выполнить сортировку между ними, включая их. По убыванию или возрастанию - неважно. Вот что сам "наваял", только сортировка идёт всего массива:

uses crt;
const n=15;
var b:array[1..n] of integer;
    i,s,m,v,min_i,max_i,p:integer;

Begin
     clrscr; randomize;
     writeln('ishodnyi massiv:');
     for i:=1 to n do begin
         b[i]:=random(100)-30;
         write(b[i]:4);
     end;
     m:=maxint;
     v:=-maxint;
     asm
        lea si,b
        mov cx,1
        mov ax,32000
        mov bx,-32000
     @1:cmp ax,[si]
        jle @2
        mov ax,[si]
        mov min_i,cx
     @2:cmp bx,[si]
        jge @3
        mov bx,[si]
        mov max_i,cx
     @3:add si,2
        inc cx
        cmp cx,n
        jne @1
        mov m,ax
        mov v,bx

     end;
     writeln;
     writeln('minimum: ',m);
     writeln('maximum: ',v);
     writeln('min-id: ',min_i);
     writeln('max-id: ',max_i);
     writeln;
     asm
     @4:lea si,b
        mov cx,n-1
        mov p,0
     @5:mov dx,[si]
        cmp dx,[si+2]
        jle @6
        xchg dx,[si+2]
        xchg dx,[si]
        mov p,1
     @6:add si,2
        loop @5
        cmp p,0
        jne @4
     end;
     writeln('poluchennyi massiv:');
     for i:=1 to n do
         write(b[i]:4);
     readkey;
End.