Найти дату, которая будет через m дней после указанной даты

Program Made_in_Salechard;
USes crt;
var den,mes,god,m,i:integer;
Begin
Writeln('Vvedite den');
readln(den);
Writeln('Vvedite mes');
readln(mes);
Writeln('Vvedite god');
readln(god);
Writeln('Vvedite M dnej');
readln(m);
   for i:=1 to m do
   Begin
case mes of
 1:begin
       den:=den+1;
       if den>31 then
                 begin
                  mes:=mes+1;
                  den:=1;
                 end;
      end;
 2:begin
       den:=den+1;
       if den>28 then
                 begin
                  mes:=mes+1;
                  den:=1;
                 end;
      end;
  3:begin
       den:=den+1;
       if den>31 then
                 begin
                  mes:=mes+1;
                  den:=1;
                 end;
      end;
  4:begin
       den:=den+1;
       if den>30 then
                 begin
                  mes:=mes+1;
                  den:=1;
                 end;
      end;
   5:   begin
       den:=den+1;
       if den>31 then
                 begin
                  mes:=mes+1;
                  den:=1;
                 end;
      end;
    6:   begin
       den:=den+1;
       if den>30 then
                 begin
                  mes:=mes+1;
                  den:=1;
                 end;
      end;
     7:   begin
       den:=den+1;
       if den>31 then
                 begin
                  mes:=mes+1;
                  den:=1;
                 end;
      end;
     8:   begin
       den:=den+1;
       if den>31 then
                 begin
                  mes:=mes+1;
                  den:=1;
                 end;
      end;
   9:   begin
       den:=den+1;
       if den>30 then
                 begin
                  mes:=mes+1;
                  den:=1;
                 end;
      end;
  10:   begin
       den:=den+1;
       if den>31 then
                 begin
                  mes:=mes+1;
                  den:=1;
                 end;
      end;
 11:   begin
       den:=den+1;
       if den>30 then
                 begin
                  mes:=mes+1;
                  den:=1;
                 end;
      end;
 12:   begin
       den:=den+1;
       if den>31 then
                 begin
                  mes:=mes+1;
                  den:=1;
                 end;
      end;
 end;
 if mes>12 then begin
    god:=god+1;
    mes:=1;
    end;
 
   End;
   writeln(den,'.',mes,'.',god);
 
End.

Program Task;
Var y,m,d,n,i : integer;
Var mm        : Array[1..12] of integer;
Begin
    mm[1]:=31;
    mm[2]:=28;
    mm[3]:=31;
    mm[4]:=30;
    mm[5]:=31;
    mm[6]:=30;
    mm[7]:=31;
    mm[8]:=31;
    mm[9]:=30;
    mm[10]:=31;
    mm[11]:=30;
    mm[12]:=31;
    write('y='); readln(y);
    write('m='); readln(m);
    write('d='); readln(d);
    write('n='); readln(n);
    If (y mod 4)=0 Then mm[2]:=29;
    For i:=1 to n Do Begin
        inc(d);
        If d > mm[m] then Begin
           d:=1;
           inc(m);
           If m > 12 then Begin
              m:=1;
              inc(y);
              If (y mod 4)=0 then
                 mm[2]:=29
              Else
                 mm[2]:=28;
           End
         End
     End;
     writeln(d,'/',m,'/',y);
End.

program Calendar;
 
type
  TDate = record
    Day, Month, Year: longint;
  end;
 
  function JDN(Date: TDate): longint;
  var
    a, y, m: longint;
  begin
    with Date do
    begin
      a := (14 - Month) div 12;
      y := Year + 4800 - a;
      m := Month + 12 * a - 3;
      JDN := Day + ((153 * m + 2) div 5) + 365 * y + (y div 4) -
        (y div 100) + (y div 400) - 32045;
    end;
  end;
 
  procedure JdnToGregorian(Jdn: longint; var Date: TDate);
  var
    a, b, c, d, e, m: longint;
  begin
    a := Jdn + 32044;
    b := (4 * a + 3) div (146097);
    c := a - ((146097 * b) div 4);
    d := (4 * c + 3) div 1461;
    e := c - ((1461 * d) div 4);
    m := (5 * e + 2) div 153;
    with Date do
    begin
      Day  := e - ((153 * m + 2) div 5) + 1;
      Month := m + 3 - 12 * (m div 10);
      Year := 100 * b + d - 4800 + (m div 10);
    end;
  end;
 
var
  Date1, Date2: TDate;
  m: longint;
  JDN1, JDN2: longint;
begin
  {Ввод первой даты}
  with Date1 do
  begin
    Day  := 16;
    Month := 8;
    Year := 2015;
  end;
  {Ввод разницы между датами}
  m := 16;
  {Вычисление JDN первой даты}
  JDN1  := JDN(Date1);
  {Вычисление JDN второй даты}
  JDN2  := JDN1 + m;
  {Вычисление второй даты по JDN}
  JdnToGregorian(JDN2, Date2);
  {Вывод результата}
  Write('Через ', m, ' дней после ');
  with Date1 do
    Write(Day, '.', Month, '.', Year);
  Write(' будет ');
  with Date2 do
    writeln(Day, '.', Month, '.', Year);
end.

CONST
  Max_Day: Array [1..12] of Integer = (31,28,31,30,31,30,31,31,30,31,30,31);
VAR
  m: LongInt;
  Day,Month,Year: LongInt;
BEGIN
  Write('Day: ');    Readln(Day);
  Write('Month: ');  Readln(Month);
  Write('Year: ');   Readln(Year);
  Write('Kol. - ');  Read(m);
  
  While (m > 0) do begin
    Dec(m);
  
    If (Month = 2)and(Day = 28) then
      If (Year mod 4 = 0)and(Year mod 100 <> 0)or(Year mod 400 = 0) then begin
        Inc(Day); Continue; End;  
     
    If (Day = 31)and(Month = 12) then begin 
      Day := 1; Month := 1; Inc(Year); End   
    Else If (Day < Max_Day[Month]) then 
      Inc(Day)
    Else begin
      Day := 1; Inc(Month); End
  End;
  
  Write(Day,'/',Month,'/',Year);
END.