Определить день недели, соответствующий заданной дате

uses crt;
{определение номера дня в текущем году}
function Dn_gd(g,m,d:word):word;
var k,k2:word;
begin
if g mod 4=0 then k2:=60 else k2:=59;
case m of
1:k:=d;
2:k:=31+d;
3:k:=k2+d;
4:k:=k2+31+d;
5:k:=k2+61+d;
6:k:=k2+92+d;
7:k:=k2+122+d;
8:k:=k2+153+d;
9:k:=k2+184+d;
10:k:=k2+214+d;
11:k:=k2+245+d;
12:k:=k2+275+d;
end;
Dn_gd:=k;
end;
{определение количества дней в прошедших полных годах}
function Kol_dn(g:word):word;
var k:word;
begin
k:=g-2010;{количество лет}
Kol_dn:=k*365+(k+9) div 4-2;
{умножаем на 365 и прибавляем по 1 дню за каждый високосный год}
end;
 
var d,m,g,k,kd:word;
begin
clrscr;
{вводим год с проверкой}
repeat
write('Год в 21 веке: ');readln(g);
until (g>2010)and(g<=2100);
{вводим месяц с проверкой}
repeat
write('Месяц: ');readln(m);
until m in [1..12];
{вводим день в месяце с проверкой}
repeat
k:=0;
write('День: ');readln(d);
if(m in [1,3,5,7,8,10,12]) and(d>31) then k:=1;
if(m in [4,6,9,11]) and(d>30)then k:=1;
if(m=2) and (g mod 4=0) and(d>29) then k:=1;
if(m=2) and(g mod 4<>0) and(d>28) then k:=1;
until k=0;
kd:=Kol_dn(g)+Dn_gd(g,m,d);
write('С 01.01.2001 года прошло ',kd,' дн.');
case kd mod 7 of
0:write(' это четверг');
1:write(' это пятница');
2:write(' это суббота');
3:write(' это воскресенье');
4:write(' это понедельник');
5:write(' это вторник');
6:write(' это среда');
end;
readln
end.

until (g>2010)and(g<=2100);

uses crt;
{определение номера дня в текущем году}
function Dn_gd(g,m,d:word):word;
var k,k2:word;
begin
if g mod 4=0 then k2:=60 else k2:=59;
case m of
1:k:=d;
2:k:=31+d;
3:k:=k2+d;
4:k:=k2+31+d;
5:k:=k2+61+d;
6:k:=k2+92+d;
7:k:=k2+122+d;
8:k:=k2+153+d;
9:k:=k2+184+d;
10:k:=k2+214+d;
11:k:=k2+245+d;
12:k:=k2+275+d;
end;
Dn_gd:=k;
end;
{определение количества дней в прошедших полных годах}
function Kol_dn(g:word):word;
var k:word;
begin
k:=g-2010;{количество лет}
Kol_dn:=k*365+(k+9) div 4-2;
{умножаем на 365 и прибавляем по 1 дню за каждый високосный год}
end;
 
var d,m,g,kd:word;
    f:text;
begin
clrscr;
assign(f,'file1.txt');
reset(f);
{читаем данные из файла}
while not eof(f) do
 begin
  read(f,d);write(d,' ');
  read(f,m);write(m,' ');
  read(f,g); write(g,'  ');
  kd:=Kol_dn(g)+Dn_gd(g,m,d);
  case kd mod 7 of
  0:write(' это четверг');
  1:write(' это пятница');
  2:write(' это суббота');
  3:write(' это воскресенье');
  4:write(' это понедельник');
  5:write(' это вторник');
  6:write(' это среда');
  end;
  writeln;
 end;
close(f);
readln
end.