Известна дата и день недели некоторого события. Определить на какой день недели приходится начало года

const ms:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
var
  d,m,i,wd1:integer;
begin
  repeat
    write('День недели=:');
    readln(wd1);
  until wd1 in [1..7];  
  repeat
    write('День=');    readln(d);
    write('Месяц=');    readln(m);
  until (m>0) and (m<13) and (d<=ms[m]);  
  for i:=1 to m-1 do d:=d+ms[i];
  case (d-wd1-1) mod 7 of
    0:writeln('воскресенье');
    1:writeln('понедельник');
    2:writeln('вторник');
    3:writeln('среда');
    4:writeln('четверг');
    5:writeln('пятница');
    6:writeln('суббота');
  end;
 end.

function daysInMonth(y, m : Integer) : Integer;
begin
  case m of
    1, 3, 5, 7, 8, 10, 12 : daysInMonth := 31;
    4, 6, 9, 11 : daysInMonth := 30;
  else // m = 2
    if y mod 100 = 0 then
      if y mod 400 = 0 then daysInMonth := 29 else daysInMonth := 28
    else
      if y mod 4 = 0 then daysInMonth := 29 else daysInMonth := 28;
  end;
end;
 
const sdw : array [0..6] of String[11] = ('воскресенье','суббота','пятница','четверг','среда','вторник','понедельник');
var
  d, m, y, dw : Integer;
begin
  WriteLn('День месяца, номер месяца, номер года, номер дня недели');
  ReadLn(d, m, y, dw);
  if (d < 1) or (m < 1) or (m > 12) or (y < 1900) or (y > 2100) or (dw < 1) or (dw > 7) or (d > daysInMonth(y, m)) then
    begin
      WriteLn('Неверные данные...'); Halt;
    end;
  while m > 1 do
    begin
      Dec(m);
      Inc(d, daysInMonth(y, m));
    end;
  dw := (7 + (d - 1) mod 7 - dw) mod 7;
  WriteLn(sdw[dw]);
end.

if Not(m in [1..12]) or (y < 1900) or (y > 2100) or Not(dw  in [1..7]) or Not(d in [1..daysInMonth(y, m)]) then