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;

[Blade_Stom]

yo recorreria la frase como si fuera un array y en el momento que una letra coincida con la primera letra de RISTRA_VIEJA, llamaria a una funcion COMPROBAR RISTRA, y esta funcion seguira recorriendo el array asta darse cuenta de si ai una secuencia de caracteres que sea igual a RISTRA_VIEJA.En ese caso esa funcion devuelve un true y desde la funcion principal si recibe un true lo que ara sera llamar a otra mini funcion la cual simplemente remplazara la cadena.