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

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

Ввести номер месяца и вывести количество дней в нем, а также число ошибок при вводе.С использованием case. Вот часть что надо дополнить?

program qq;
uses crt;
var M,D,O: integer;
begin
   repeat
   writeln('Введите номер месяца:');
   read (M);
   Until (M>=1) and (m>=12);
    case M of
    2:        begin D := 28; end;
    4,6,9,11: begin D := 30; end;
    1,3,5,7,8,10,12: D := 31;
    else             D := -1;
   end;
 
   if D > 0 then
      writeln('В этом месяце ', D, ' дней.')

Решение задачи: «Ввести номер месяца и вывести количество дней в нем»

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

program qq;
uses crt;
var M,D,O,X: integer;
begin
x:=-1;
   repeat
   clrscr;
   inc(x);
   writeln('Введите номер месяца:');
   read (M);
   Until (M>0) and (m<13);
    case M of
    2:        begin D := 28; end;
    4,6,9,11: begin D := 30; end;
    1,3,5,7,8,10,12: D := 31;
    else             D := -1;
   end;
 
   if D > 0 then writeln('В этом месяце ', D, ' дней.');
   Writeln('Число ошибок - ',x);
end.

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

Объявлены четыре переменные типа integer: M, D, O, X.
Переменная X инициализируется значением -1.
Запускается цикл repeat-until, который будет выполняться до тех пор, пока значение переменной X не станет больше 0 и номер месяца не станет меньше 13.
В начале каждого цикла выполняется очистка экрана с помощью функции clrscr.
Каждое число, введенное пользователем, преобразуется в тип integer с помощью функции read.
В зависимости от значения переменной M выполняется соответствующая ветвь case, которая определяет количество дней в месяце.
Если количество дней больше 0, то выводится сообщение с количеством дней в месяце.
Выводится число ошибок X.