Из массива А переписать в массив В те элементы массива А, индексы которых являются полными квадратами

program dfkhdk;
uses crt;
const N=10;
var A,B: array[1..N] of shortint;
i,j:1..N;
begin
Randomize;
for i:=1 to N do
A[i]:=Random(10);
writeln('MASSIV A:');
write(A[i]:4);
writeln;
writeln('MASSIV B:');
asm
     LEA SI,A
     LEA DI,B
     mov BX,0
     mov CX,N
     mov AL,1
                 @l: mov DL,[SI+BX]
                       mov [DI+BX],DL
                       inc BX
                       imul bX
                       inc AL
                       loop @l
end;
for j:=1 to N do
write(B[j]:4);
readln;
end.

program dfkhdk;
 
uses
  crt;
 
const
  N = 10;
var
  A, B: array[1..N] of shortint;
  i, j: 1..N;
begin
  Randomize;
  writeln('MASSIV A:');
  for i := 1 to N do
  begin
    A[i] := Random(10);
    Write(A[i]: 4);
  end;
  writeln;
  writeln('MASSIV B:');
  asm
    LEA SI,A
    LEA DI,B
    MOV BX,0   {bx - индекс элемента массива}
    MOV  CX,N  {cx - индекс последнего элемента массива}
    SUB CX,1
    MOV DX,3  {слагаемое, для получения следующего квадрата}
    @@Copy:
      MOV AL,[SI+BX]
      MOV [DI+BX],AL
      ADD BX,DX
      ADD  DX,2
      CMP BX,CX
    JBE @@Copy
  end;
  for j := 1 to N do
    Write(B[j]: 4);
  readln;
end.