Во про граф с петлей. В чем подвох?

Type   dat = record       d: integer;       m: integer;       y: integer   end; function jday(pd: dat): longint; // алгоритм 199б // "переход от календарной даты к порядковому номеру дня и обратно" // взят из сборника // "библиотека алгоритмов 151б-200б", м.и.агеев и др., // м.: радио и связь, 1981 // // алгоритм возвращает порядковый номер дня по юлианскому календарю. // работает для дат, начиная с 01.01.4713 до н.э. var   c, ya: longint; begin   with pd do   begin       if m > 2 then m : = m - 3       else       begin           m : = m + 9;           y : = y - 1       end;       c : = y div 100;       ya : = y mod 100;       result : = ((146097 * c) div 4) + ((1461 * ya) div 4) +           ((153 * m + 2) div 5) + d + 1721119   end; end; function jdate(j: longint): dat; // алгоритм 199б // "переход от календарной даты к порядковому номеру дня и обратно" // взят из сборника // "библиотека алгоритмов 151б-200б", м.и.агеев и др., // м.: радио и связь, 1981 // // алгоритм возвращает дату григорианского календаря по // порядковому номеру дня юлианского календаря. // работает для дат, начиная с 01.01.4713 до н.э. var   dd, mm, yy: integer; begin   j : = j - 1721119;   yy : = (4 * j - 1) div 146097;   dd : = (4 * j - 1 - 146097 * yy) div 4;   j : = (4 * dd + 3) div 1461;   dd : = (4 * dd + 7 - 1461 * j) div 4;   mm : = (5 * dd - 3) div 153;   dd : = (5 * dd + 2 - 153 * mm) div 5;   yy : = 100 * yy + j;   if mm < 10 then mm : = mm + 3   else begin mm : = mm - 9; yy : = yy + 1 end;   result.d : = dd;   result.m : = mm;   result.y : = yy end; var   d1,d2: dat; begin   writeln('введите дату рождения в формате < день месяц год> : ');   read(d1.d, d1.m, d1.y);   d2: =jdate(jday(d1)+5000);   writeln('5000 дней прожито ',d2.d,'.',d2.m,'.',d2.y) end. тестовое решение: введите дату рождения в формате < день месяц год> : 9 10 1997 5000 дней прожито 18.6.2011