Определить дату, которая наступит через х дней после текущей

Program DataM;
Type
   mounth = (jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec);
   day = 1..31;
   year = 1000..2500;
Var
   d : day;
   mon : mounth;
   g : year;
   
   num : 1..12;
   m:integer;
Begin
   Write('vvedite Deni mesyaca , nomer mesyaca i god : ');
   Readln(d,num,g);
   Write('vvedite chislo dnei : ');
   Readln(m);
   Case num of
       1 : mon:= jan;
       2 : mon:= feb;
       3 : mon:= mar;
       4 : mon:= apr;
       5 : mon:= may;
       6 : mon:= jun;
       7 : mon:= jul;
       8 : mon:= aug;
       9 : mon:= sep;
       10 : mon:= oct;
       11 : mon:= nov;
       12: mon:= dec;
   End;
   while m<>0 do
   begin
   Case mon of
   jan, mar, may, jul, aug, oct : If d = 31 then
                                  begin
                                       d := 1; mon := succ(mon)
                                  end
                                  else d := d + 1;
   apr, jun, sep, nov    : If d = 30 then
                              begin
                                  d := 1; mon := succ(mon)
                              end
                              else d := d + 1;
   dec                     : If d = 31 then
                              begin
                                  d := 1; mon := jan; g := g + 1;
                              end
                              else d := d + 1;
   feb                    : If (( d = 28) and ((g mod 4 <> 0) or (g mod 100 = 0))
                              and (g mod 400 <> 0)) or (d=29) then
                              begin
 
                            d := 1; mon := succ(mon);
                         end
                         else d := d + 1;
    end; { case }
    m:=m-1;;
    end;
 
    Write('iskomaya data: ', d : 2);
    Case mon of
       jan: write(' january ');
       feb: write(' february ');
       mar: write(' march ');
       apr: write(' april ');
       may: write(' may ');
       jun: write(' june ');
       jul: write(' july ');
       aug: write(' august ');
       sep: write(' september ');
       oct: write(' october ');
       nov: write(' november ');
       dec: write(' december ')
    end; { case }
 
    Writeln(g : 5,' year ');
    Readln