package is
//    type vector_random is record
//       numeros: Positive range 1 .. 20;
//    end record;
    type vector_random is Positive range 1..20;
    subtype string_vector is String (1 .. 10);
    function create_vector (F : vector_random) return string_vector;
 end vector_random;

package body vector_random is
   function create_vector(n: Integer) return string_vector is
   begin
      for i in 1 .. n loop -- dimensión del array
      end loop;
end vector_random;