用汇编语言编写排序算法

哪个语言，如果是pascal的话就是
program ex_1;
var
i,j,n:integer; {i,j:循环变量；n:数的数量）
a:array[1..10000] of longint;{a:数}
begin
readln(n); {读入}
for i:=1 to n do
readln(a[i]);
for i:=1 to n-1 do {排序（从小到大）}
begin
k:=i;
for j:=i+1 to n do
begin
if a[j]<a[i] then k:=i;
temp:=a[k]; a[k]:=a[j]; a[j]:=temp;
end;
end;
for j:=1 to n-1 do {输出}
write(a[j],'<');
write(a[n]);
end.