Массив рассортировать по методу выбора

program ass1;
uses crt;
const n=10;
var a:array [1..n] of integer;
    x,y,z,k,i,max:integer;
procedure vivod;
begin
     for i:=1 to n do
         write(a[i],' ');
end;
begin
clrscr;
randomize;
for i:=1 to n do
    a[i]:=random(20);
vivod;
max:=0;
asm
@1:     mov k,0
@2:     mov ax,k
        mov dx,2
        mul dx
        mov i,ax
        lea si,a
        add si,i
        mov dx,[si]
        mov max,dx
@3:     mov dx,[si]
        add si,2
        cmp si,n*2+2
        je @4
        cmp max,dx
        jle @3
        mov max,dx
        mov z,si
        cmp si,n*2-2
        jne @3
        lea si,a
        mov ax,[si]
        add si,i
        mov dx,max
        mov [si],dx
        lea si,a
        add si,z
        mov [si],ax
        add k,2
        cmp k,n*2
        jne @2
@4:     cmp k,n*2
        jne @2
 
end;
writeln;
vivod;
readln;
end.