Даны числа А,В,С, которые обозначают дату. Определить количество дней, прошедших с начала года

uses crt;
const kd:array[1..11] of byte=(31,28,31,30,31,30,31,31,30,31,30);
var a,b,c,i,k,k2:integer;
    vis:boolean;
begin
clrscr;
{ввод с проверкой}
repeat
write('Год: ');readln(a);
until (a>=1900)and(a<=2100);
vis:=((a mod 100<>0)and(a mod 4=0))or(a mod 400=0);
repeat
write('Месяц: ');readln(b);
until b in [1..12];
repeat
k:=0;
write('День: ');readln(c);
if(c<1)or(c>31) then k:=1;
if(b in [4,6,9,11]) and(c>30)then k:=1;
if(b=2) and vis and(c>29) then k:=1;
if(b=2) and not vis and(c>28) then k:=1;
until k=0;
if vis then kd[2]:=kd[2]+1;{високосный +1 в феврале}
if b=1 then k:=c
else
 begin
  k:=c;
  for i:=1 to b-1 do
  k:=k+kd[i];
 end;
write('Количество дней с начала года=',k);
readln
end.

program q;
uses crt;
const date:array [1..11] of byte = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30);
var a,b,c,s:integer;
i:byte;
begin
clrscr;
repeat
writeln('Vvedite god:');
readln(a);
until (a <= 2100) and (a>=1900);
 
repeat
writeln('Vvedite mesyac:');
readln(b);
until b in [1..12];
 
repeat
writeln('Vvedite chislo:');
readln(c);
until c in [1..31];
 
{proverka vysokosnoty goda:}
 
if ((a mod 100<>0) and (a mod 4=0)) or (a mod 400 = 0) then
date[2]:= date[2]+1;
 
for i:=1 to b-1 do
s:=s+date[i];
s:=s+c;
writeln('kol-vo dnej s na4ala goda:',s);
readln
end.