Реализовать на assembler

[Mr.Steroid]

Всем Здравствуйте. У меня есть программа сортировки массива по возрастанию из 30000 эллементов (метод пузырька)

var A:array[1..30000] of integer;
 N,i,m,k,x : integer;

begin
 i:=0;

    while i<=30000 do
    begin
    A[i]:=35000-i;
    i:=i+1;
    end;

    for k:=30000 downto 2 do
    begin
    m:=1;
    for i:=2 to k do if A[i]>A[m] then m:=i;
    x:=A[m]; A[m]:=A[k]; A[k]:=x;
    end;
    end.

Смысл в том, что в асемблере данный алгоритм нужно реализовать точно так же как и в Pascal. Что бы потом я мог сравнить время исполнения и объём. Помогите, пожалуйста, реализовать данную сортировку в Assembler.