Дан порядковый номер месяца, вывести на экран его название паскаль

VarA:byte;BeginWriteLn('Введи номер месяца');Read(A);Case A of1:WriteLn('Январь');2:WriteLn('Февраль');3:WriteLn('Март');4:WriteLn('Апрель');5:WriteLn('Май');6:WriteLn('Июнь');7:WriteLn('Июль');8:WriteLn('Август');9:WriteLn('Сентябрь');10:WriteLn('Октябрь');11:WriteLn('Ноябрь');12:WriteLn('Декабрь');EndEnd.