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

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.