Написать программку,которая по введенному числу от 1 до 12(номеру месяца) выдает

Если будут где-то оплошности извините ,вероятно в знаках)) проверьте в паскале ,если что напишите 

program prazdnik;
var a : integer ;
begin
readln(a);
if a=1  then writeln ('пишите сюда праздиники в 1-ый месяц,какие необходимы');
if a=2 then writeln ('сюда то чт ово 2-ой ');
if a=3 then writeln (' третий ') ;
if a=4 then writeln (' четвертый месяц с его праздничками');
if a=5 then writeln (' 5-ый месяц');
  if a=6 then writeln (' 6-ой месяц'); 
 if a=7 then writeln (' седьмой месяц'); 
 if a=8 then writeln (' восьмой'); 
 if a=9 then writeln (' празднички '); 
 if a=10 then writeln ('празники '); 
  if a=11 then writeln (' праздники 11 месяца');
 if a=12 then  writeln ('двенадцатый');  
end.