Как я могу использовать WriteLn с перечислением type?

Я пытаюсь создать собственный тип данных для дней недели, но не могу заставить его написать это. Ошибка компилятора говорит следующее:

Недопустимый тип в программе операторов Write / Writeln ...

Я пытаюсь создать собственный тип данных для дней недели, но не могу заставить его записать его. Ошибка компилятора говорит следующее:

Недопустимый тип в программе операторов Write / Writeln ...

Я пытаюсь создать собственный тип данных для дней недели, но не могу заставить его записать его. Ошибка компилятора говорит следующее:

[Ошибка] hours.dpr (28): недопустимый тип в операторе Write / Writeln

program hours;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TypeDay = (Sun,Mon,Tue,Wed,Thu,Fri,Sat);

var day: TypeDay;

begin
     for day := Sun to Sat do
     begin
         writeln(day);
     end;
end.

Это в Delphi 7 в Windows.