Определить по номеру месяца количество дней в этом месяце - Pascal

Формулировка задачи:

исправьте пожалуйста ошибки в коде задание: написать программу, которая за номером месяца выводит количество дней в нем.

var d,m: byte;
begin
writeln('m');readln(m);
case m of
2:begin d:=28;end; 
1,3,5,7,8,10,12: begin d:=31; end;
4,6,9,11: begin d:=30; 
if d>0 then writeln(' в этом месяце ',d, ' дней.')
else writeln('ошибка');
end;end;end.

Решение задачи: «Определить по номеру месяца количество дней в этом месяце»

Листинг программы

var m: Integer;
begin
  Write('Номер месяца: '); ReadLn(m);
  if m in [1..12]
  then WriteLn('Дней: ',30-2*Ord(m=2)+Ord(1 shl (m-1) and $AD5<>0))
  else WriteLn('Ошибка');
end.

Объяснение кода листинга программы

Переменная m объявлена как целочисленная
Пользователю предлагается ввести номер месяца
Если номер месяца находится в диапазоне от 1 до 12, то выполняется следующая формула для определения количества дней в месяце:
- 30 - 2 * (если месяц = 2, то 1, иначе 0) + (если месяц - 1 имеет остаток от деления на 4 и 100 не делится на 400, то 0, иначе 1)
  - выводится количество дней в месяце
  - если номер месяца не находится в диапазоне от 1 до 12, то выводится сообщение об ошибке