E2054 Write/Writeln 文に正しくない型が渡されました (Delphi)

エラーと警告のメッセージ（Delphi） への移動

このエラーは合法でない型を Write 文または Writeln 文に正しくない型の引数が渡されたときに起きます。

program Produce;
type
  TColor = (red,green,blue);
var
  Color : TColor;
begin
  Writeln(Color);
end.

{ Color を直接 Writeln 文の引数には指定できない }

program Solve;
type
  TColor = (red,green,blue);
var
  Color : TColor;
const
  ColorString : array [TColor] of string = ('red', 'green', 'blue');
begin
  Writeln(ColorString[Color]);
end.

{ Color を出力するには，補助配列を使用しなければならない }