Помогите пожалуйста, сделать что нибудь в паскале В календаре племени Сиу-Мяу 4 месяца (тяп, ляп, мяк, бяк) по 12 дней.

var n: integer; ch: char; d: string;begin write(\'Введите месяц и день\'); readln( ch, n ); case n of 1: d:= \' первое \'; 2: d:= \' второе \'; 3: d:= \' третье \'; 4: d:= \' четвертое \'; 5: d:= \' пятое \'; 6: d:= \' шестое \'; 7: d:= \' седьмое \'; 8: d:= \' восьмое \'; 9: d:= \' девятое \'; 10: d:= \' десятое \'; 11: d:= \' одиннадцатое \'; 12: d:= \' двенадцатое \'; else d:= \' Ошибка числа \'; end; case ch of \'т\': d:= d + \' тяпа\'; \'л\': d:= d + \' ляпа\'; \'м\': d:= d + \' мяка\'; \'б\': d:= d + \' бяка\'; else d:= d + \' Ошибка месяца \'; end; d:= \'Сегодня \' + d; writeln( d );end.