Определение соответствующего указанной дате дня недели

var
   a,b,c,d,e,y,z:integer; {е-количество дней  в феврале}
BEGIN
     write('Введите месяц (01-январь, 02-февраль и т.д.) - ');
     readln(a);
     write('Введите число - ');
     readln(b);
     write('Введите год (от 1901 до 2099) - ');
     readln(c);
     write('Введите день недели, с которого начался год (1-понедельник, 2-вторник и т.д.) - ');
     readln(d);
     IF(c mod 4=0) THEN e:=29 ELSE e:=28; {проверка на високосный год}
{begin - [i]лишний[/i]}
     case(a) of
       1: z:= (b-1) mod 7;
       2: z:= (31 + (b-1)) mod 7;
       3: z:= (31 + e + (b-1)) mod 7;
       4: z:= (62 + e + (b-1)) mod 7;
       5: z:= (92 + e + (b-1)) mod 7;
       6: z:= (123 + e + (b-1)) mod 7;
       7: z:= (153 + e + (b-1)) mod 7;
       8: z:= (184 + e + (b-1)) mod 7;
       9: z:= (215 + e + (b-1)) mod 7;
       10: z:= (245 + e + (b-1)) mod 7;
       11: z:= (276 + e + (b-1)) mod 7;
       12: z:= (306 + e + (b-1)) mod 7;
       13: z:= (337 + e + (b-1)) mod 7;
    end;
    y:=d+z;
{begin - [i]лишний[/i]}
    case (y) of
       1,8: write (b,'.',a,'.',c,' - ','понедельник');
       2,9: write (b,'.',a,'.',c,' - ','вторник');
       3,10: write (b,'.',a,'.',c,' - ','среда');
       4,11: write (b,'.',a,'.',c,' - ','четверг');
       5,12: write (b,'.',a,'.',c,' - ','пятница');
       6,13: write (b,'.',a,'.',c,' - ','суббота');
       7,14: write (b,'.',a,'.',c,' - ','воскресенье');
    end;
{end; - [i]лишний[/i]}
{end; - [i]лишний[/i]}
end.

function intdow(yyyy,mm,dd:integer):integer;
 var
 Addval:shortint;
begin
  if mm<3 then addval:=1
    else addval:=0;
  intdow:=(((3*yyyy-(7*(yyyy+(mm+9)div 12)) div 4 +
  (23*mm)div 9 +dd+2+((yyyy-addval)div 100+1)*3 div 4-16)mod 7));
end;