Написать программу, которая по заданному году и номеру месяца выводит на экран количество дней в этом месяце — Pascal(Паскаль)

uses crt;
var m,g,k:integer;
begin
clrscr;
writeln('Введите дату:');
repeat
write(' Месяц(1-12): ');readln(m);
until m in [1..12];
write(' Год: ');readln(g);
case m of
1,3,5,7,8,10,12:k:=31;
4,6,9,11:k:=30;
2:if(((g mod 100<>0)and(g mod 4=0))or(g mod 400=0)then k:=29
  else k:=28;
end;
write('В месяце ',m,' ',g,' года ',k,' дн.');
readln
end.