菜鸟问题求解释

劫祗o

var year,month,days:integer;
begin
writeln('请输入年份：');
readln(year);
days:=0;
for month:=1 to 12 do
begin
  case month of
  1,3,5,7,8,10,12:days:=31;
  2:if (year mod 400=0) or not (year mod 100=0)  and (year mod 4=0)
    then days:=29
    else days:=28
  4,6,9,11:days:=30;
   else writeln('月份出错!');
   end;
   writeln(month,'月',days,'天');
   end;
   writeln('按回车键结束');
end
错误提示：(18):Missing operator or semicolon
                 (22):'.'expected but ''found

劫祗o

求解释啊，按照Delphi程序设计 这本书上的例子   一摸一样敲出来的    不知道为什么出这个问题
知道的同学麻烦把错误的那一行帮忙改一下，顺便说下为什么 谢谢啦。。