Найти номер дня от начала года

uses crt;
var x:1..31; //дни
    y:1..12; //месяцы
    z:1000..2008; //годы
    n:word; //номер дня в году
function VisGod(a:word):boolean;//функция для определения високосного года
begin
if ((a mod 4=0)and(a mod 100<>0))//если кратно 4 и не кратно 100
or((a mod 4=0)and(a mod 400=0))then VisGod:=true//или кратно 4 и кратно 400
else VisGod:=false;
end;
 
begin
clrscr;
write('God=');readln(z);
write('Mes=');readln(y);
write('Den=');readln(x);
if VisGod(z)and (y=2)and(x>29)then x:=29;//если год високосный в феврале не более 29 дней
if not VisGod(z)and (y=2)and(x>28)then x:=28;//если нет, не более 28
case y of
4,6,9,11:if x=31 then x:=30;//в этих месяцах не более 30 дней
end;
case y of
1:n:=x; //январь
2:n:=31+x; //февраль
end;
if VisGod(z)then //високосный год
case y of
3:n:=60+x;//март и т.д.
4:n:=91+x;
5:n:=121+x;
6:n:=152+x;
7:n:=182+x;
8:n:=213+x;
9:n:=244+x;
10:n:=274+x;
11:n:=305+x;
12:n:=335+x;
end;
if not VisGod(z)then //не високосный
case y of
3:n:=59+x;
4:n:=90+x;
5:n:=120+x;
6:n:=151+x;
7:n:=181+x;
8:n:=212+x;
9:n:=243+x;
10:n:=273+x;
11:n:=304+x;
12:n:=334+x;
end;
write('Nomer dnhya=',n);
readln
end.