Определить дату следующего дня + день недели

program calendr;
const
Sep:char='.';{Разделитель даты}
cDays:array[1..7] of string[12]=('Понедельник','Вторник','Среда','Четверг','Пятница','Суббота','Воскресенье');
var
aMonth:array[1..12] of byte;{Количество дней в месяце}
Date:string;{Текущая дата}
Day,Month:byte;
Year:integer;
 
{Получение даты из строки}
function getDate(date:string;sep:char):boolean;
var
i,c:byte;{Счетчики}
err,p,tmpB:integer;{err-ошибки при приведении,p-позиция для copy}
tmpS:string;
flag:boolean;{Флаг ошибки}
begin
 getDate:=true;
 date:=date+sep; {Добавляем разделитель в конец строки}
 c:=0;
 p:=1;
 flag:=true;
 i:=0;
 repeat
  if (date[i]=sep) then
    begin
     tmpS:=copy(date,p,i-p);
     val(tmpS,tmpB,err);
     if err<>0 then {Возникли ошибки}
      begin
       getDate:=false;
       flag:=false;
      end
     else {Нет ошибки при приведении}
      begin
       case c of
        0:Day:=tmpB;
        1:Month:=tmpB;
        2:Year:=tmpB;
       else {Если в строке больше 3-х разделителей }
        begin
         getDate:=False;
         flag:=false;
        end;
       end;
       {Проверим корректность даты}
       if (c=2) and
       ((Month>12) or (Month<0) or (Day<0) or (Day>aMonth[Month])) then
        begin
         getDate:=false;
         flag:=false;
        end;
      end;
     inc(c);
     p:=i+1;
    end;
  i:=i+1;
  until (not flag) or (i>length(date));{Цикл}
 if c<2 then getDate:=false; {Если меньше 2-х разделителей в строке}
end;
 
procedure nextDay(var d:byte;var m:byte; var y:integer);
begin
{Конец года}
if (d=31) and (m=12) then
 begin
  d:=1;m:=1;y:=y+1;
 end
{Конец месяца}
else if (d=aMonth[m]) and (m<>12) then
 begin
  d:=1;
  m:=m+1;
 end
{Все остальные дни}
else d:=d+1;
end;
 
procedure nameDay(day:byte;month:byte;year:integer);
var
a,y,m,dW,i:integer;
begin
{Алгоритм действителен для григорианского календаря}
{Позднее 1583 года}
a:=(14-month) div 12;
y:=year-a;
m:=month+12*a-2;
dW:=(7000+(day+y+y div 4-y div 100+y div 400+(31*m) div 12)) mod 7;
 
writeln(cDays[dW]);
 
 
end;
 
 
begin
aMonth[1]:=31;aMonth[2]:=29;aMonth[3]:=31;aMonth[4]:=30;
aMonth[5]:=31;aMonth[6]:=30;aMonth[7]:=31;aMonth[8]:=31;
aMonth[9]:=30;aMonth[10]:=31;aMonth[11]:=30;aMonth[12]:=31;
{Получить текущее число}
Writeln('Введите дату в формате dd',Sep,'mm',Sep,'yyyy');
readln(Date);
if getDate(Date,Sep) then
begin
 {Проверим високосный ли год}
 if not (((Year mod 100<>0) and (Year mod 4=0)) or (Year mod 400=0)) then
  aMonth[2]:=28;
  {Выводим следующий день}
  nextDay(Day,Month,Year);
  writeln('Следующий день:',Day,Sep,Month,Sep,Year);
  {Выводим день недели}
  nameDay(Day,Month,Year);
end
 else Writeln('Дата введена некорректно');
readln;
end.