Head toma un trozo del principio de Source. Para utilizarla hay que incluir la librería Ada.Strings.Unbounded.
function Head (Source : in Unbounded_String; Count : in Natural; Pad : in Character := Space) return Unbounded_String; procedure Head (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 := Head (Din1, 10); -- Din1 = "Universida"
Din1 := To_Bounded_String ("Casa"); Din1 := Head (Din1, 10); -- Din1 = "Casa "