Выдать следующую по календарю дату по введенному дню, месяцу, году

var
  day,month:byte;
  year:word;
//funktsia dlya opredeleniya yavl. li god visokosnym
function isVisGod(y:word):boolean;
begin
  isVisGod:=(y mod 4=0) and ((y mod 100<>0) or (y mod 400=0));
end;
//funktsia dlya opredeleniya kol-va dnei v mesyatse
function MonthDays(m:byte;y:word):byte;
begin
  Case m of 
    2:
      if isVisGod(y) then
        MonthDays:=29
      else
        MonthDays:=28;
    1,3..7:
      if m mod 2=0 then
        MonthDays:=30
      else
        MonthDays:=31;
    else
      if m mod 2=0 then
        MonthDays:=31
      else
        MonthDays:=30;
  end;
end;
begin
  repeat
    write('God=');
    readln(year);
  until year>=0;
  repeat
    write('Mesyats ot 1 do 12:');
    readln(month);
  until month in [1..12];
  repeat
    write('Chislo mesyatsa ot 1 do ',MonthDays(month,year),':');
    readln(day);
  until day in [1..MonthDays(month,year)];
  writeln('Vvedennaya data(dd.mm.yyyy)=',day,'.',month,'.',year);
  if day=MonthDays(month,year) then
    begin
      day:=1;
      month:=month+1;
      if month>12 then
        begin
          year:=year+1;
          month:=1;
        end;
    end
  else
    day:=day+1;
  writeln('Sleduyushaya data(dd.mm.yyyy)=',day,'.',month,'.',year);
end.