Задаётся с клавиатуры день и месяц. Вывести день недели

program Noname28;
    const years:array[1..4] of byte
        = (0,2,3,4);
    const months:array[1..12] of byte
        = (0,3,3,6,1,4,6,2,5,0,3,5);
    const dayOfWeek:array[0..6] of string[3]
        = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
        
    var day,month,tmp,a,b,c,e:integer;
begin
  Repeat
    Write('Day xx   >');
    ReadLn(day);
  Until day in [1..31];
  
  Repeat
    Write('Month xx >');
    ReadLn(month);
  Until month in [1..12];
  
  tmp:=2011-1996;
  a:=tmp and 3;
  b:=(tmp shl 2) + (tmp and $0fc);
  c:=months[month];
  
  if ((a=0) and (month>2)) then inc(c);
  a:=years[a];
  e:=(a+b+c+day) mod 7;
  WriteLn('It must be ',dayOfWeek[e]);
  
  Readln;
end.

program Noname28;
uses crt;

readln

uses crt;
const dm:array[1..12] of byte=(0,31,28,31,30,31,30,31,31,30,31,30);
      //кол. дней в предшествующих месяцах
      nd:array[0..6] of string[15]=('пятница','суббота','воскресенье','понедельник','вторник','среда',
                                    'четверг'); //дни недели, 1 января-суббота
var d,m,k,i,n:byte;
begin
repeat
write('Введите номер месяца m=');
read(m);
if not m in [1..12] then writeln('Ошибка ввода, повторите');
until m in [1..12];
repeat
k:=0;
write('Введите номер дня в месяце d=');
read(d);
if((m in [1,3,5,7,8,10,12])and not(d in [1..31]))
or((m in [4,6,9,11])and not(d in [1..30]))
or((m=2)and not(d in [1..28])) then k:=1;
if k=1 then writeln('Ошибка ввода, повторите');
until k=0;
n:=d;//сколько дней прошло в данном месяце
for i:=1 to m do
n:=n+dm[i]; //сколько прошло за предыдущие месяцы
write(nd[n mod 7]);
end