Посчитать сумму элементов с четным числом из массива вещественных чисел - Assembler

{$ASMMODE INTEL}
const
  n = 10;
var
  a   : array [1..n] of double;
  i   : integer;
  res : double;
BEGIN
writeln('введите элементы массива*:');
for i:=1 to n do
begin
  write(' ');
  read(a[i]);
end;
writeln;
asm
  mov edx,n
  lea ebx,a
  MOV eSI,ebx
  add eSI,24
  mov ecx,edx
  shr ecx,1
  dec ecx
  FLD QWORD PTR [ebx+8]
@sum:
  FADD QWORD PTR [eSI]
  add eSI,16
loop @sum
  FSTP res
end;
writeln('результат: ',res:10:7);
readln;
readln;
END.