type
  TSize = (Small, Middle, Large);

const
  //enums have no constructors: the
  //idiom is a lookup array over the enum
  SizeNames: array[TSize] of string =
    ('S', 'M', 'L');

begin
  WriteLn('sizeName is ', SizeNames[Small]);
  //sizeName is 'S'
end.