Вычислить дату следующего дня

program z7;
var
  day:integer;
  month:integer;
  year:integer;
  last:boolean;
  r:real;
  l:integer;
begin
  writeln('Введите сегодняшнию дату');
  writeln('Число месяц год');
  readln(day,month,year);
  last:=FALSE;
  case month of
  1,3,5,7,8,10,12:if day=31
  then last:=TRUE;
  4,6,9,11: if day=30
  then last:=TRUE;
  2: if day = 28 then
  begin
  r:=year mod 4; if r <> 0
  then last:=TRUE;
  end;
  end; { case }
  if last
  then begin
  writeln('Последний день месяца');
  day:=l;
  if month=12
  then begin
  month:=1; year:=year + 1;
  writeln('С Новым Годом'); end
  else month:=month + 1; end
  else day:=day + 1; writeln('Завтра ',day,'.',month,'.' ,year );
  readln;
end.

Program data;
var
  ch,m,g:integer;
Begin
  writeln('Введите число месяц год ');
  read(ch);
  read(m);
  read(g);
 case m of
 01,03,05,07,08,10:if ch=31 then writeln('Следующий день:',01,'.', m+01,'.',g)
 else writeln('Следующий день:',ch+1,'.' ,m,'.' ,g);
 04,06,09,11: if ch=30 then writeln('Следующий день:',01,'.', m+01,'.',g)
 else writeln('Следующий день:',ch+1,'.' ,m,'.' ,g);
 12: if ch=31 then writeln('Следующий день:',01,'.', m-11,'.',g+1)
 else writeln('Следующий день:',ch+01,'.' ,m,'.' ,g);
 02: if((g mod 4=0)and(g mod 100<>0))or(g mod 400=0) then 
   begin
    if ch=29 then writeln('Следующий день:',01,'.',m+1,'.',g)
    else writeln('Следующий день:',ch+1,'.',m,'.',g);
   end
   else if ch=28 then writeln('Следующий день:',01,'.',m+1,'.',g)
   else writeln('Следующий день:',ch+1,'.',m,'.',g);
 end; 
end.

program z7; 
 
const DaysInMonth : array[1..12] of integer =  
         (31,28,31,30,31,30,31,31,30,31,30,31);
 
var
  day:integer;
  month:integer;
  year:integer;
  Last:integer;
begin
  writeln('Введите сегодняшнию дату');
  writeln('Число месяц год');
  readln(day,month,year);
 
  if not (month in [1..12]) then begin
      WriteLn('Вы ввели неверную дату (месяц должен быть от 1 до 12)');  Halt(1)
  end;
 
  if (year<2000) or (year>2099) then begin
      WriteLn('Вы ввели неверную дату (год должен быть от 2000 до 2099)'); Halt(2)
  end;
 
  Last := DaysInMonth[month];
  if ((year mod 4) = 0) and (month=2) then Last := 29; {високосный год}
 
  if (day<1) or (day>Last) then begin
      WriteLn('Вы ввели неверную дату (в ',month,'-м месяце ',year,' года от 1 до ', Last,' дней)'); Halt(3)
  end;
 
  if day=Last then begin
    WriteLn('Последний день месяца!');
    day := 1;
    if month=12 then begin
         WriteLn('С наступающим новым годом!'); 
         month := 1;
         year := year + 1
    end
    else
      month := month + 1;    
  end
  else 
     day := day + 1; 
  
  writeln('Завтра ',day,'.',month,'.' ,year );
  readln;
end.

{ функция возвращает високосный ли год }
  function IsLeapYear(Year : Integer) : Boolean;
  begin
    IsLeapYear := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));
  end;