CONSTANTER i et MultiDim.: StringArray

HEJ;

Jeg har et tekstarray ( 7 * 5 ( X,Y) ) og disse tekster ændrer sig ikke overhovedet i programmet. derfor ville jeg gerne lægge dem ind som en konstanter i et array under CONST - "fanen".

Noget i stil med :

CONST
 
  CONST_TEKST = Array[1..7,1..5] of ShortString =
  ('tekst 1,1', 'tekst 1,2' ..... 'tekst 1,5),
    'tekst 2,1', 'Tekst 2,2' ..... 'tekst 2,5',
  ....
    'tekst 7,1', 'tekst 7,2' ..... 'tekst 7,5');


Jeg har søgt på nettet, men finder ikke det jeg søger.

Hvordan er syntaksen for dette "kunstgreb" ?

[
jeg kan lægge dem ind ved at lave en dobbel-loop i type-arrayet

TYPE
  CONST_TEKST = Array{1..7,1..5] OF shortString;

  LOOP X (og Y)
  ...
  Const_tekst[X,Y] := string;
  ..

Men denne løsning er ikke ønskværdig ...  ]

Kristian