ADA - Programacion en Ada

Hola, estoy empezando a programar en Ada orientada a objetos y tengo una practica en la que me piden que haga el procedimiento insertar. Tengo que cambiar el (1) pero no se a que. Podrían ayudarme, gracias.

procedure Insertar
(Vector : in out T_Vector;
Elemento : in T_Elemento'Class)
is
begin
if Vector.Contenido (1) = null then
Vector.Contenido (1) := new T_Elemento'Class'(Elemento);
else
Vector.Contenido (1).all := Elemento;
end if;
end Insertar;

para ayudarte especifica los tipos T_Vector y T_Elemento y vuelve a enviarlo.