[Bargest]

Код:

asm
 nop
 nop 
 nop
 nop
end;
for i:=1 to N do
 begin
 j:=i;
 while (j>1) and (B[j-1]>A[i]) do
 begin
 B[j]:=B[j-1];
 j:=j-1;
 end;
 B[j]:=A[i];
 end;
 end;
asm
 nop
 nop 
 nop
 nop
end;

Потом BreakPoint на for'е и вперед.