TP3/shell/tests/fixtures/t118_strconstarray.pas

program strconst2;
type st = string[4];
     star = array[0..2] of st;
const W : star = ('', 'I', 'II');
begin
  writeln(W[0]);
  writeln(W[1]);
  writeln(W[2])
end.