Koľko dní zostáva do konca mesiaca?

//Napiste program ktory si vypita datum dd,mm,rrrr a vypise kolko dni zostava do konca mesiaca uvazujte aj o prestupnom roku.
program koniecmesiaca;
{$APPTYPE CONSOLE}
uses SysUtils;
type mesiac=1..31;
     rok=1..12;
     mesiace=array[1..12] of byte;
var m:mesiace;
    me:rok;
    r:word;
    d,v:mesiac;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  m[1] := 31;
  m[2] := 28;
  m[3] := 31;
  m[4] := 30;
  m[5] := 31;
  m[6] := 30;
  m[7] := 31;
  m[8] := 31;
  m[9] := 30;
  m[10] := 31;
  m[11] := 30;
  m[12] := 31;
  write('Zadajte datum (DD MM RRRR): ');
  readln(d,me,r);
  if r mod 4 = 0 then
     begin
       m[2]:=29;
       v:=m[me]-d;
     end
     else v:=m[me]-d;
  writeln('Do koncia mesiaca zostava: ',v,' dni.');
  readln;
end.