Числа a, b, c обозначают дату. Определить сколько полных дней осталось до конца года- Pascal(Паскаль)

var
  a,b,c,day:integer;
begin
  Write('Enter day:');Readln(a);
  Write('Enter mounth:');Readln(b);
  Write('Enter year (20xx):');Readln(c);
  if (b=4) or (b=6) or (b=9) or (b=11) then day:=30-a;
  day:=31-a;
  if b=2 then if (c mod 4)=0 then day:=29-a else day:=28-a;
  for a:=b to 11 do
  begin
    if (a=4) or (a=6) or (a=9) or (a=11) then day:=day+30 else day:=day+31;
    if a=2 then if (c mod 4)=0 then day:=day-2 else day:=day-3;
    Writeln(day);
  end;
  Writeln;
  Writeln;
  Writeln('Lost day:',day);
  Readln;
end.