Задача по Паскаль. Рассчитать день недели

function max(month : Integer) : integer;
begin
   if odd(month) = (month <= 7) then max := 31
   else if month = 2 then max := 28
   else max := 30;
end;
 
var
   d, m : integer;
   month, days : Integer;
 
begin
   write('Месяц: '); readln(m);
   write('День: '); readln(d);
 
   // m := 2; d := 10;
 
   if (m > 0) and (m <= 12) and (d > 0) and (d <= max(m)) then
   begin
      writeln('Корректная дата');
 
      days := d;
      for month := 1 to m - 1 do
         days := days + max(month);
 
      writeln('День недели: ', ((days - 1) mod 7) + 1);
   end
   else writeln('Некорректная дата');
end.

var
   d, m : integer;
   max, month, days : Integer;
 
begin
   write('Месяц: '); readln(m);
   write('День: '); readln(d);
 
   // m := 2; d := 10;
 
   if odd(m) = (m <= 7) then max := 31 // Это так или иначе надо проверять дважды
   else if m = 2 then max := 28
   else max := 30;
 
   if (m > 0) and (m <= 12) and (d > 0) and (d <= max) then
   begin
      writeln('Корректная дата');
 
      days := d;
      for month := 1 to m - 1 do
      begin
         if odd(month) = (month <= 7) then max := 31 // Привет, Copy/Paste !!!
         else if m = 2 then max := 28
         else max := 30;
 
         days := days + max;
      end;
 
      writeln('День недели: ', ((days - 1) mod 7) + 1);
   end
   else writeln('Некорректная дата');
end.