Я не смог найти это ни в одной из документации, но я попробовал это, и это работает!
Вот метод, использованный с полным примером:
Program StrangeArray;
Var T: Array[1..5] of Integer = (554,434,144,343,525);
x:integer;
Begin
For x:=1 to 5 Do
Begin
Writeln(T[x]);
End;
End.
Надеюсь, что это полезно и для других.