Initializing an array of Strings

General
2

I would recommend using an indefinite vector (dynamic array) of Strings:

pragma Ada_2022;

with Ada.Text_IO; use Ada.Text_IO;
with Ada.Containers.Indefinite_Vectors;

procedure jdoodle is
    package Vectors is new Ada.Containers.Indefinite_Vectors(Positive,String);
    subtype Text_Array is Vectors.Vector;
    Words : Text_Array := ["One", "Two", "Three", "Four", "DONE"];
begin
    for Word of Words loop
        exit when Word = "DONE";
        Put_Line(Word);
    end loop;
    Put_Line("End of program");
end jdoodle;

Output:

One
Two
Three
Four
End of program