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

(Ввод: 2 1992. Вывод: февраль 29)

var god:integer;
     mes:byte;
begin
   writeln('Введите номер месяца');
   readln(mes);
   writeln('Введите год');
   readln(god);
   case mes of
   1:write('январь');
   2:write('февраль');
   3:write('март');
   4:write('апрель');
   5:write('май');
   6:write('июнь');
   7:write('июль');
   8:write('август');
   9:write('сентябрь');
   10:write('октябрь');
   11:write('ноябрь');
   12:write('декабрь');
   end;
   case mes of
   1,3,5,7,8,10,12:write(' 31');
   4,6,9,11:write(' 30');
   2:if ((god mod 4=0)or(god mod 100=0))and(god mod 400<>0) then write(' 29')
   else write(' 28');
   end;
   writeln;
end.