По заданному номеру квартала, дате которая включает число и название месяца и дня недели найти следующую дату

program data1;
label metko;
type month = (jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov, dec);
     dayweek = (mon, twu, wen, thr, fry, sat, sun);
var
   wek:dayweek;
   mes:month;
   week,mesc:string;
   m,d,w,kd:byte;
procedure SearchMonth(var me:byte; mese:month; var mesce:string);
     Begin
          CASE Me OF
               1: mese:=jan ;
               2: mese:=feb ;
               3: mese:=mar ;
               4: mese:=apr ;
               5: mese:=may ;
               6: mese:=jun ;
               7: mese:=jul ;
               8: mese:=aug ;
               9: mese:=sep ;
               10: mese:=oct ;
               11: mese:=nov ;
               12: mese:=dec ;
          end;
          case mese of
               jan:mesce:='Января';
               feb:mesce:='Февраля';
               mar:mesce:='Марта';
               apr:mesce:='Апреля';
               may:mesce:='Май';
               jun:mesce:='Июня';
               jul:mesce:='Июля';
               aug:mesce:='Августа';
               sep:mesce:='Сентября';
               oct:mesce:='Октября';
               nov:mesce:='Ноября';
               dec:mesce:='Декабря';
          end;
     End;
procedure SerachWeek(var we:byte; weke:dayweek; var weeke:string);
     Begin
          CASE we OF
               1: weke:=mon ;
               2: weke:=twu ;
               3: weke:=wen ;
               4: weke:=thr ;
               5: weke:=fry ;
               6: weke:=sat ;
               7: weke:=sun ;
          end;
          CASE weke OF
               mon:weeke:='Понедельник';
               twu:weeke:='Вторник';
               wen:weeke:='Среда';
               thr:weeke:='Четверг';
               fry:weeke:='Пятница';
               sat:weeke:='Суббота';
               sun:weeke:='Вокресенье';
          end;
     End;
procedure KolDays(var mese:month;var kde:byte);
     Begin
          case mese of
               feb : kde:=28;
               apr, jun, sep, nov : kde:=30;
               else kde := 31;
          end;
     End;
procedure WriteInf(var weke:dayweek;weeke:string;de:byte;mesce:string);
     Begin
          CASE weke OF
                    mon,twu,thr : writeln('Следующий ',week,' áóäåò ',de,'-ãî ',mesce);
                    wen,fry     : writeln('Следующая ',week,' áóäåò ',de,'-ãî ',mesce);
                    sun         : writeln('Следующее ',week,' áóäåò ',de,'-ãî ',mesce);
               end;
     End;
BEGIN
     writeln('Введите № месяца');
     readln(m);
     writeln('Введите номер дня недели');
     readln(w);
     writeln('Введите день');
     readln(d);
     SearchMonth(m,mes,mesc);
     SerachWeek(w,wek,week);
     writeln('Введенная дата: ',d,'.',mesc,'.',week);
     writeln;
     KolDays(mes,kd);
     d:=d+7;
     IF d>kd THEN
             Begin
                  m:=m+1;
                  SearchMonth(m,mes,mesc);
                  d:=d-kd;
             End;
     WriteInf(wek,week,d,mesc);
END.