Replace_Slice reemplaza una subristra de Source. Para utilizarla hay que incluir la librería Ada.Strings.Unbounded.
function Replace_Slice (Source : in Unbounded_String; Low : in Positive; High : in Natural; By : in String) return Unbounded_String; procedure Replace_Slice (Source : in out Unbounded_String; Low : in Positive; High : in Natural; By : in String);
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; ... Din1 : Unbounded_String; ... Din1 := To_Bounded_String ("Pedro corre"); Din1 := Replace_Slice (Din1 , 1, 5, "Jesús"); -- Din1 = "Jesús corre" Replace_Slice (Din1 , 1, 5, "Santiago"); -- Din1 = "Santiago corre"