C начала 1990 года по некоторый день прошло n месяцев и 2 дня. Определить название месяца этого дня, написать программу в pascal (case of) и (if else), подскажите хотя бы алгоритм решения!

var  A: System.DateTime;  i: byte;  begin  readln(i);  A := (new System.DateTime(1990, 1, 1)).AddMonths(i).AddDays(2);  case A.DayOfWeek of    System.DayOfWeek.Monday: writeln('ПН');    System.DayOfWeek.Tuesday: writeln('ВТ');    System.DayOfWeek.Wednesday: writeln('СР');    System.DayOfWeek.Thursday: writeln('Чт');    System.DayOfWeek.Friday: writeln('ПТ');    System.DayOfWeek.Saturday: writeln('СБ');    System.DayOfWeek.Sunday: writeln('ВС');  end;end.