Сколько мне секунд??? Ответит программа!

Program SEK;
var dr, vr, mir, dk, vk, mik, sk, nv, nn, nd1, nv1, nmi1, nd2, s, mi, v, d, g : real; gr, gk, mr, nm1, a, b, nm2, mk, q : integer;
Begin
     writeln ('Эта программа написана для расчёта количества секунд, которые ты живёшь на свете.');
     write ('Введи год своего рождения: ');
     readln (gr);
     write ('Введи месяц своего рождения: ');
     readln (mr);
     write ('Введи день своего рождения: ');
     readln (dr);
     writeln ('Введи время своего рождения:');
     write ('          Часы: ');
     readln (vr);
     write ('          Минуты: ');
     readln (mir);
     writeln ('Теперь введи дату, к которой ты хочешь получить результаты:');
     write ('Год: ');
     readln (gk);
     write ('Месяц: ');
     readln (mk);
     write ('Число: ');
     readln (dk);
     writeln ('Время:');
     write ('          Часы: ');
     readln (vk);
     write ('          Минуты: ');
     readln (mik);
     write ('          Секунды: ');
     readln (sk);
     a:=gr+1;
     b:=gk-1;
     while a mod 4<>0 do
           Begin
           a:=a+1
           End;
     while a mod 4<>0 do
           Begin
           b:=b-1
           End;
     nv:=(b-a)/4+1;
     nn:=gk-gr-nv-1;
     case mr of
          1 : Begin
              nm1:=11;
              q:=31
              End;
          2 : Begin
              nm1:=10;
              q:=28
              End;
          3 : Begin
              nm1:=9;
              q:=31
              End;
          4 : Begin
              nm1:=8;
              q:=30
              End;
          5 : Begin
              nm1:=7;
              q:=31
              End;
          6 : Begin
              nm1:=6;
              q:=30
              End;
          7 : Begin
              nm1:=5;
              q:=31
              End;
          8 : Begin
              nm1:=4;
              q:=31
              End;
          9 : Begin
              nm1:=3;
              q:=30
              End;
          10 : Begin
              nm1:=2;
              q:=31
              End;
          11 : Begin
               nm1:=1;
               q:=30
               End;
          12 : Begin
               nm1:=0;
               q:=31
               End;
     End;
     nd1:=q-dr;
     case nm1 of
          0 : nd1:=nd1+0;
          1 : nd1:=nd1+31;
          2 : nd1:=nd1+61;
          3 : nd1:=nd1+92;
          4 : nd1:=nd1+122;
          5 : nd1:=nd1+153;
          6 : nd1:=nd1+184;
          7 : nd1:=nd1+214;
          8 : nd1:=nd1+245;
          9 : nd1:=nd1+275;
          10 : nd1:=nd1+306;
          11 : nd1:=nd1+334
     End;
     if (gr mod 4=0) and (mr=2) then
        Begin
        nd1:=nd1+1
        End;
     nv1:=23-vr;
     nmi1:=60-mir;
     case mk of
          1 : nd2:=0;
          2 : nd2:=31;
          3 : nd2:=59;
          4 : nd2:=90;
          5 : nd2:=120;
          6 : nd2:=151;
          7 : nd2:=181;
          8 : nd2:=212;
          9 : nd2:=243;
          10 : nd2:=273;
          11 : nd2:=304;
          12 : nd2:=334
     End;
     if (gk mod 4=0) and (mk>=2) then
        Begin
        nd2:=nd2+1
        End;
     nd2:=nd2+dk-1;
     s:=31622400*nv+31526000*nn+86400*nd1+3600*nv1+60*
nmi1+86400*nd2+3600*vk+60*mik+sk;
     mi:=s/60;
     v:=mi/60;
     d:=v/24;
     g:=d/365;
     writeln ('____________________________________________________________________________________________________________________________________________________________________________');
     writeln (dk, '.', mk, '. ', gk, ' года в ',vk, ':', mik, ':', sk, ' тебе исполнится:');
     writeln (s, ' секунд');
     writeln (mi, ' минут');
     writeln (v, ' часов');
     writeln (d, ' дней');
     writeln (g, ' лет');
     writeln ('Расчёты были произведены, учитывая дату и время рождения, а также количество дней в високосном году.');
     readln
END.