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

[BDA]

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  c: array[1..12] of integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
  day, mon, year, dn, dm, dy: integer;

function leap(year: integer): integer;
begin
  if ((year mod 4 = 0) and (year mod 100 <> 0)) or (year mod 400 = 0) then
    leap := 1
  else
    leap := 0;
end;

begin
  writeln('Input day, month, year:');
  readln(day, mon, year);
  c[2]:=c[2]+leap(year);
  dn:=day+1;
  if dn>c[mon] then
  begin
    dn:=1;
    dm:=mon+1;
  end
  else
    dm:=mon;
  if dm>12 then
  begin
    dm:=1;
    dy:=year+1;
  end
  else
    dy:=year;
  writeln('Tomorrow: '+inttostr(dn)+'.'+inttostr(dm)+'.'+inttostr(dy));
  writeln('Last day of month: '+inttostr(c[mon])+'.'+inttostr(mon)+'.'+inttostr(year));
  readln;
end.

Вполне воможны ошибки, так что тестируйте лучше.