Определить день недели, на который приходится день с датой d (день), m (месяц)

uses crt;
const dm:array[1..12]of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
      dn:array[1..7]of string=('ïîíåäåëüíèê','âòîðíèê','ñðåäà','÷åòâåðã','ïÿòíèöà',
                               'ñóááîòà','âîñêðåñåíüå');
var wd1,wd:string;
    n,m,d,k,i:integer;
begin
repeat
write('Ââåäèòå íîìåð äíÿ íåäåëè 1 ÿíâàðÿ wd1=');
read(n);
until n in [1..7];
wd1:=dn[n];
writeln('1 ÿíâàðÿ ',wd1);
writeln('Ââåäèòå äàòó â ãîäó');
repeat
write('Ìåñÿö 1-12 m=');
read(m);
until m in [1..12];
repeat
write('Äåíü â çàâèñèìîñòè îò èåñÿöà d=');
read(d);
until(d>0)
and((m in [1,3,5,7,8,10,12])and(d<32))
or((m in [4,6,9,11])and(d<31))
or((m=2)and(d<29));
k:=d-1;//ìèíóñ 1 äåíü, åñëè ââåëè 1.01, òî ïðîøëî 0 äíåé
for i:=1 to m-1 do//ñ÷èòàåì ñêîëüêî ïðîøëî äíåé
k:=k+dm[i];
k:=k mod 7; //áåðåì îñòàòîê îò 7
//ê íîìåðó äíÿ 1.01 ïðèáàâëÿåì îñòàòîê îò k è áåðåì îñòàòîê îò ñóììû
wd:=dn[(n+k)mod 7];
write('Ýòîò äåíü íåäåëè ',wd);
end.