Перевод с паскаля на ассемблер

[Сильф]

Помогите перевести программу, оч. надо

program Kursovaya;
const
n = 10;
hex: array [10..15] of char = ('A','B','C','D','E','F');

Function DecToHex(n:integer):string;
Var
tmp:string;
Begin
tmp:='';
While n > 0 do
Begin
If n mod 16 < 10 then tmp:=inttostr(n mod 16)+tmp
else tmp:=hex[n mod 16]+tmp;
n:=n shr 4;
End;
DecToHex:=tmp;
End;

var
a:array[1..n] of byte;
i,j:integer;
z:byte;
begin
writeln('Массив до сортировки: ');
for i:=1 to n do
begin
a[i]:=random(50);
write(DecToHex(a[i]),' ');
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
z:=a[i];
a[i]:=a[j];
a[j]:=z;
end;
writeln;
writeln('Массив после сортировки: ');
for i:=1 to n do
write(DecToHex(a[i]),' ');
end.

[Сильф]

Ну или вот задание чтобы ясно было

Отсортировать массив по возрастанию. Вывести исходный и полученный массив в 16ричной форме. Использовать операции сдвига.