Ejercicio en Ada

[The04]

Bueno soy estudiante de primer año de Informatica de Gestion y tengo que hacer un ejercicio de Ada y no tengo ni pajorera idea de como hacerlo.

El ejercicio me pide que desarrolle una funcion con 3 parametros de entrada (Ristra, Mini_Ristra_1 y Mini_Ristra_2) y uno de salida, todos ellos Unbounded_String. LA funcion debe devolver el resultado de sustituir en Ristra todas las apariciones de Mini_Ristra_1 por Mini_Ristra_2.

En fín y por ahora lo que tengo esto pero esta mal.

Código:

with Ada.Strings;           use Ada.Strings;
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
--  Cabecera de la funcion
function Reemplazar (Frase : in Unbounded_String;
                    Ristra_vieja : in Unbounded_String;
                    Ristra_nueva : in Unbounded_String)
                    return Unbounded_String is
--  Variables Locales
I : Natural := 1;
Resultado : Unbounded_String;
begin
   while I < Length (Frase) loop
      I := Index(Frase,To_String(Ristra_vieja), I);
      Resultado := Replace_Slice(Frase, I, I + Length (Ristra_vieja), To_String(Ristra_nueva));
   end loop;
   return Resultado;
end Reemplazar;