Дата некоторого дня

var
 n,m:integer;
begin
 writeln('Введите дату, ММ:ДД');
 readln(m,n);
 
 if n-1=0 then begin
  if m-1=0 then m:=12 else m:=m-1;
  case m of 
   1,3,5,7,8,10,12: writeln('предидущий день, ', 'месяц: ', m, ', день: ', 31); 
   4,6,9,11: writeln('предидущий день, ','месяц: ', m,', день: ', 30);
   2: writeln('предидущий день, ','месяц: ', m, ', день: ', 28);
  end;
  if m=12 then m:=1 else m:=m+1;
 end
 else writeln('предидущий день, ','месяц: ', m, ', день: ', n-1);
 
 
 case m of 
  1,3,5,7,8,10,12: if (n+1>31) then begin
   n:=1;
   if m=12 then m:=1 else m:=m+1;
  end
  else n:=n+1;
 
  4,6,9,11: if (n+1>30) then begin
   n:=1;
   m:=m+1;
  end
  else n:=n+1;
   
  2: if (n+1>28) then begin
   n:=1;
   m:=m+1;
  end
  else n:=n+1;
 end;
 writeln('следующий день, ', 'месяц: ', m, ', день: ', n); 
end.