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

const
    days: array[1..7] of string = ('понедельник','вторник','среда','четверг','пятница','суббота','воскресенье');
type date = record
    d, m, y, dw: integer;
end;
 
function isLeap(year: integer) : boolean;
var res: boolean;
begin
  if (year mod 100 = 0) then
    if (year mod 400 = 0) then
      res := true
    else
      res := false
  else
    if (year mod 4 = 0) then
      res := true
    else
      res := false;
 isLeap := res;
end;
 
function days_in_month(month: integer; year: integer) : integer;
var res: integer;
begin
  case month of
    1, 3, 5, 7, 8, 10, 12: res := 31;
    4, 6, 9, 11: res := 30;
  end;
  if (month = 2) then
    begin
      if (isLeap(year) = true) then
        res := 29
      else 
        res := 28;
    end;
  days_in_month := res;
end;
 
var 
  evnt: date;
  t1, t2, cn, t, i: integer;
  
begin
  cn := 1;
  
  writeln('Введите дату');
  
  write('День: '); read(evnt.d);
  write('Месяц: '); read(evnt.m);
  write('Год: '); read(evnt.y);
  write('День недели (число, где 1 - понедельник, 2 - вторник и т.д.): '); read(evnt.dw);
  
  while cn < evnt.m do
    begin
      t1 := days_in_month(cn,evnt.y);
      evnt.d := evnt.d + t1;
      cn := cn + 1;
    end;
  
  evnt.dw := 1 + (evnt.d mod 7) - evnt.dw;
  write(days[evnt.dw]);
end.

evnt.dw := 1 + (evnt.d mod 7) - evnt.dw;

    if (year mod 4 = 0) then
      res := true
    else
      res := false;

function isLeap(year: integer) : boolean;
begin
  if year mod 100 = 0 then
    Result := year mod 400 = 0
  else
    Result := year mod 4 = 0;
end;

function inFebruary(year: integer) : integer;
begin
  if year mod 100 = 0 then
    Result := (year mod 400 = 0 ? 29 : 28)
  else
    Result := (year mod 4 = 0 ? 29 : 28)
end;
 
function days_in_month(month, year: integer) : integer;
begin
  case month of
    1, 3, 5, 7, 8, 10, 12: Result := 31;
    4, 6, 9, 11: Result := 30;
  else
    Result := inFebruary(year);
  end;
end;

const
    dayOfWeek : array[1..7] of string = ('понедельник','вторник','среда','четверг','пятница','суббота','воскресенье');
 
type
  date = record
    d, m, y, dw: integer;
 
    constructor;
    begin
      'Введите дату'.Println;
      d := ReadInteger('День:');
      m := ReadInteger('Месяц:');
      y := ReadInteger('Год:');
      '1 - понедельник, 2 - вторник, ..., 6 - суббота, 7 - воскресенье'.Println;
      dw := ReadInteger('День недели:');
    end;
 
    function isFirstDay := (d = 1) and (m = 1);
  end;
 
function inFebruary(year: integer) : integer;
begin
  if year mod 100 = 0 then
    Result := (year mod 400 = 0 ? 29 : 28)
  else
    Result := (year mod 4 = 0 ? 29 : 28)
end;
 
function days_in_month(month, year: integer) : integer;
begin
  case month of
    1, 3, 5, 7, 8, 10, 12: Result := 31;
    4, 6, 9, 11: Result := 30;
  else
    Result := inFebruary(year);
  end;
end;
 
begin
  var evnt := New date;
  if evnt.isFirstDay then
    'Сегодня 1 января!'.Println
  else
    begin
      var days := evnt.d - 1; // 1 число месяца — это 0 дней от начала // 2 — это 1 день // 3 — это 2 и т.д.
      evnt.d := 1; // передвинем дату на начало месяца
      while Not evnt.isFirstDay do // пока не 1 января
        begin
          evnt.m -= 1; // предыдущий месяц
          days += days_in_month(evnt.m, evnt.y);
        end;
      $'От начала года прошло дней {days}'.Println;
      $'День недели 1 января {evnt.y} {dayOfWeek[ 7 - (days - evnt.dw ) mod 7 ]}'.Print;
    end;
end.