Ввести номер месяца и вывести кол-во дней в нем и число ошибок при вводе

program m_1;

var b:integer;

begin

writeln ('Введите номер месяца') ;

readln (b) ;

if b>=13 then writeln ('Вы дурак месяцов всего 12') ;

case b of

1:writeln ('в месяце 31 день ') ;

2:writeln ('в месяце 28 дней') ;

3:writeln ('в месяце 31 день') ;

4:writeln ('в месяце 30 дней') ;

5:writeln ('в месяце 31 день') ;

6:writeln ('в месяце 30 дней') ;

7:writeln ('в месяце 31 день') ;

8:writeln ('в месяце 31 день') ;

9:writeln ('в месяце 30 дней') ;

10:writeln ('в месяце 31 день') ;

11:writeln ('в месяце 30 дней') ;

12:writeln ('в месяце 31 дней') ;

end;

end.