Tail toma un trozo del final de Source. Para utilizarla hay que incluir la librería Ada.Strings.Unbounded.
function Tail (Source : in Unbounded_String; Count : in Natural; Pad : in Character := Space) return Unbounded_String; procedure Tail (Source : in out Unbounded_String; Count : in Natural; Justify : in Alignment := Left; Pad : in Character := Space);
with Ada.Strings; use Ada.Strings with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; ... Din1 : Unbounded_String; ...
Din1 := To_Bounded_String ("Universidad de Las Palmas de Gran Canaria"); Din1 := Tail (Din1, 10); -- Din1 = "an Canaria"
Din1 := To_Bounded_String ("Casa"); Din1 := Tail (Din1, 10); -- Din1 = "Casa "