Lenguaje de programacion ADA crear y mostrar array de String

[juan_gp]

Hola soy novato en este lenguaje y necesito saber como crear un array de String, insertarle datos y mostrarlo, lo de crearlo e insertarlo e usado código de una función de un programa muy largo que encontré y que funcionaba y lo e adaptado pero no me funciona jaja dejo aquí el código para ver si alguien puede corregidme. Gracias

Código &quot:

with Ada.Text_IO;                       use Ada.Text_IO;
with Ada.Integer_Text_IO;           use Ada.Integer_Text_IO;
 
procedure Tester is
   package IO renames Ada.Text_IO;
 
    instruccion : String(1..4);
    instruccion(1..4) := "ADDI";
    begin
    
   IO.Put_Line(instruccion);
   
end Tester;
 
--Otra que e encontrado es la siguiente:
 
 
with Ada.Text_IO;
with Text_IO, Ada.Strings.Fixed,
     Ada.Strings.Bounded, Ada.Strings.Unbounded;
use Text_IO, Ada.Strings.Fixed, Ada.Strings.Unbounded;
 
procedure Tester is
   package IO renames Ada.Text_IO;
     subtype tNombreFuncion is string (1 .. 5);
    nombreFuncion : tNombreFuncion;
    nombreFuncion := "ADDI";
    begin
    
   IO.Put_Line(nombreFuncion);
   
end Tester;
 

[juan_gp]

me respondo a mi mismo es así:

with Ada.Text_IO;

procedure Tester is
package IO renames Ada.Text_IO;
Line : STRING(1..4);
begin

Line := "ADDI";
IO.Put_Line(Line);

end Tester;