Задача на Паскале с кодом асемблера(Массив)

[lezg1n]

Добрый день. Помогите написать код ассемблера на паскале для решения задачки на тему масивы.
суть такова:
есть масив А=[1..10] надо вывести масив В=А^2

Program lab;
uses crt;
var 
 i,n:integer;
 b,a:array[1..10] of integer;
begin
 clrscr;
 Write('Vvedite razmernost massiva (<11): ');
 readln(n);
 randomize;
 writeln('Poluchen massiv:');
 for i:=1 to n do
  begin 
   a[i]:=random(100)-50;
   Write(a[i]:5);
  end;
 Writeln;
 Writeln('Poluchen massiv B:');
 for i:=1 to n do
  begin
   b[i]:=a[i]*a[i];
   Write(b[i]:5);
  end;
 Writeln;
asm

Вот что я написал на паскале. Как начался код асм я уже не смог, так как не знаю что писать(
Прошу помочь. Нужно очень срочно, так как завтра сдавать(