1package Opt20_Pkg is 2 3 procedure Write_Str (S : String); 4 5 type Fail_Proc is access procedure (S : String); 6 7 procedure My_Fail (S : String); 8 9 Fail : Fail_Proc := My_Fail'Access; 10 11 function Get_Name_String (Id : Integer) return String; 12 13end Opt20_Pkg; 14