[Julià T.]

creo que el error está al copiar el array

for i:=0 to high(vecfinal) do
  result[i] := vecFinal[i];