Сформировать расписание экзаменов сессии в заданном году - PascalABC.NET

var
  d, m, g, k, i, n, feb: integer;
  l: string;
 
begin
  Writeln('В какой день начинаєтся сессия?');
  readln(d, m, g);
  Writeln('Количество экзаменов');
  readln(n);
  Writeln('Количество дней для подготовки');
  readln(k);
  
  if g mod 4 = 0 then feb := 29 else feb := 28;
  d := d + 1;
  if d < 10 then l := ' ' else l := '';
  writeln(l, d, '.', m, '.', g);
  for i := 2 to n do
  begin
    case m of
      1, 3, 5, 7, 8, 10, 12:   
        begin
          d := d + k;
          if d > 31 then m := m + 1;
          if d > 31 then d := d - 31;
          if m = 13 then g := g + 1;
          if m = 13 then m := 1;
          if m = 13 then m := 1;
          if d < 10 then l := '  ' else l := ' ';
        end;
      4, 6, 9, 11:
        begin
          d := d + k;
          if d > 30 then m := m + 1;
          if d > 30 then d := d - 30;
          if d < 10 then l := '  ' else l := ' '; 
        end;      
      2:
        begin
          d := d + k;
          if d > feb then m := m + 1;
          if d > feb then d := d - feb;
          if d < 10 then l := '  ' else l := ' ';
        end;    
    
    end;
    writeln(l, d, '.', m, '.', g);
  end;
end.