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

[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.