Tail toma un trozo del final de Source. Para utilizarla hay que incluir la librería Ada.Strings.Fixed.
function Tail (Source : in String; Count : in Natural; Pad : in Character := Space) return String; procedure Tail (Source : in out String; Count : in Natural; 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 .. 10); ...
Fija := Tail ("Universidad de Las Palmas de Gran Canaria", 10); -- Fija = "an Canaria"
Fija := Tail ("Casa", 10); -- Fija = "Casa "