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

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 lt;gt; 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.