Определить дату предыдущего дня и дату следующего дня - Pascal ABC

var n,m: integer;
//n - день; m - месяц;
begin
   readln(n);
   readln(m);
   case n of
     28: case m of
           2: begin
             n:=1;
             m:=3;
           end;
           else n:=29;
         end;
     30: case m of
           4,6,9,11: begin
             n:=1;
             m:=m+1;
           end;
           else n:=31;
         end;
     31: begin
           n:=1;
           case m of
             12: m:=1;
             else m:=m+1;
           end;
     end;
     else n:=n+1;
   end;
  writeln(n,' ',m);
 readln;
end.