Ассемблерные вставки _транспонирование матрицы

[strem92]

помогите, надо процедуру транспонирования матрицы переделать в ассемблерную вставку

uses crt;

Type
matrix=array [1..20,1..20] of longint;

var A,B:matrix;
i,j,n,m:integer;

procedure transp_matrix (A:matrix; var B:matrix);
begin
for i:=1 to n do
begin
for j:=1 to m do
B[j,i]:=A[i,j];
end;
for i:=1 to m do
begin
writeln;
for j:=1 to n do
write (B[i,j]:3,' ');
end;
end;

begin
clrscr;

write('Добро пожаловать в программу транспонирования матрицы! Пожалуйста следуйте ');
writeln('инструкциям.');
writeln;
writeln('Введите размерность матрицы. После чего введите каждый элемент.');
write('Количество строк: ');
readln(n);
write('Количество столбцов: ');
readln(m);

for i:=1 to n do
for j:=1 to m do
begin
writeln('A[',i,',',j,']:=' );
readln(A[i,j]);
end;
for i:=1 to n do
begin
writeln;
for j:=1 to m do
write (A[i,j]:3, ' ');
end;
writeln;
write('Транспонированная матрица:');
transp_matrix (A,B);
readkey;
end.