Сделать так чтоб Writeln был заменен иным словом и повторялься не

Сделать так чтоб Writeln был заменен иным словом и повторялься не больше 2-ух раз
program choise;
var N_M:integer;
writeln(' введи номер месяца ');
readln(N_M);
case N_M of
1:writeln(' январь ');
2:writeln(' февраль ');
3:writeln(' март ');
4:writeln(' апрель ');
5:writeln(' май ') ;
6:writeln(' июнь ');
7:writeln(' июль ');
8:writeln(' август ');
9:writeln(' сентябрь ');
10:writeln(' октябрь ');
11:writeln(' ноябрь ');
12:writeln(' декабрь ');
else writeln(' такового месяца нет ');
end;
case N_M of
4,6,9,11:writeln(' 30 дней ');
1,3,5,7,8,10,12:writeln(' 31 дней ');
2:writeln(' 28 дней ');
end;
case N_M of
12,1,2:writeln(' зима');
3,4,5:writeln(' весна');
6,7,8:writeln(' осень');
9,10,11:writeln(' лето');
end;
end.