Сформировать другой массив, в который нечетные элементы из первого массива переписать без изменений

program is;
 
var
a:array [1..6] of word;
b:array [1..6] of word;
c,i: integer;
 
label sh1;
 
begin
randomize;
for i:=1 to 6 do
a[i]:=10+random(99);
 
asm
mov si,0
mov bx,0
 
lea bp,a
lea di,b
sh1:
 
mov al,0
mov ah,0
mov ax,0
mov dx,0
 
mov ax,[ds:bp][si]
mov cx,10
div cx
add cx,dx
mov [ds:di][bx],ax
 
add bx,1
add si,1
cmp bx,5
jbe sh1
end;
for c:=1 to 6 do
writeln(a[c]);
writeln('');
for c:=1 to 6 do
writeln(b[c]);
readln;
end.

var
  a, b: array [1..6] of Word;
  i: Integer;
begin
  Randomize;
  for i:=1 to 6 do begin
    a[i]:=10+Random(90); Write(' ',a[i]);
  end; WriteLn;
  asm
    mov ax,ds
    mov es,ax
    lea si,a
    lea di,b
    cld
    mov cx,6
  @1:
    lodsw
    or  ax,1
    stosw
    loop @1
  end;
  for i:=1 to 6 do Write(' ',b[i]); WriteLn;
end.

var
  a, b: array [1..6] of Word;
  i: Integer;
begin
  Randomize;
  for i:=1 to 6 do begin
    a[i]:=10+Random(90); Write(' ',a[i]);
  end; WriteLn;
  asm
    lea si,a
    lea di,b
    mov cx,6
  @1:
    mov ax,[si]
    or  ax,1
    mov [di],ax
    add si,2
    add di,2
    loop @1
  end;
  for i:=1 to 6 do Write(' ',b[i]); WriteLn;
end.