有一个菜鸟问题。当日结贴

Question

program l91;
{$APPTYPE CONSOLE}
//uses SysUtils;
type
  TDateRec=record
   Year:integer;
   Month:(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);
   Day:1..31;
end;
 var
  s:string;
  i:integer;
  Record1,Record2:TDateRec;
begin
   Writeln('请输入一行文字：');
    Readln(s);
    Writeln('您输入的是：',s);
    Writeln('按下回车<Enter>键退出。');
    for i:=1 to 127 do Writeln(chr(i));
    Record1.Year:=1975;
    Record1.Month:=Sep;
    Record1.Day:=13;
    Writeln(intToStr(record1.Year)+record1.month +IntToStr(record1.day));
    with record1 do
    begin
     Year:=1973;
     Month:=Jul;
     Day:=21;
     end;
     Record2:=Record1;
   writeln(IntToStr(record2.Year)+record2.month +IntToStr(record2.day));
    Readln;
  // Insert user code here
end.
不知道为什么我就是不能输出，请各位老大说明一下原因。还有，如果这个不行，给出一个可以输出的方法。

Answer 1

Writeln(intToStr(record1.Year) + IntToStr(Ord(record1.month)) + IntToStr(record1.day));    <----我的修改
  with record1 do
  begin
    Year:=1973;
    Month:=Jul;
    Day:=21;
   end;
   Record2:=Record1;
   writeln(IntToStr(record2.Year)+ IntToStr(Ord(record2.month)) +IntToStr(record2.day));       <----我的修改
   Readln;你上面的两句中，混有枚举，所以不能够使编译通过。