Процедуры в паскале

[sys*.12]

Добрый день господа форумчане.Возник вопрос у меня имеются 2 паскалевские процедуры не знаю как их переделать на ассемблеровские, так чтобы ассемблер писался в паскале.Кто сможет помоч примного благодарен.

{Процедура формирования вектора из сумм элементов каждой строки}
{Переменные: A - начальный массив}

{B - массив результат, z - размер}

Procedure Sum (A: matrix; z: integer; Var B: massiv);

Var

i, j, s: integer;

Begin {Sum}

For i: = 1 to z do

Begin

s: = 0;

For j: = 1 to z do

s: = s + A [i, j];

B [i]: = s

End;

For i: = 1 to z do

Write (B [i]: 8)

End; {Sum}

{Процедура сортировки элементов массива по убыванию}

{Переменные: A - массив; z - размер}

Procedure Sort (z: integer; Var A: massiv);

Var

i, j, c: integer;

Begin {Sort}

For i: = 1 to (z – 1) do

Begin

c: = i;

For j: = i + 1 to z do

If A [i] < A [j] then

Begin

c: = A [i];

A [i]: = A [j];

A [j]: = c

End