Lenguaje de programacion ADA crear y mostrar array de String

[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;