Replace_Slice reemplaza una subristra de Source. Para utilizarla hay que incluir la librería Ada.Strings.Fixed.
function Replace_Slice (Source : in String; Low : in Positive; High : in Natural; By : in String) return String; procedure Replace_Slice (Source : in out String; Low : in Positive; High : in Natural; By : in String; Drop : in Truncation := Error; Justify : in Alignment := Left; Pad : in Character := Space);
with Ada.Strings; use Ada.Strings with Ada.Strings.Fixed; use Ada.Strings.Fixed; ... Fija : String (1 .. 11); ...
Fija := "Pedro corre"; Fija := Replace_Slice (Fija, 1, 5, "Jesús"); -- Fija = "Jesús corre" Replace_Slice (Fija, 1, 5, "Santiago", Drop => Right); -- Fija = "Santiago co"