Вычисляю дату Пасхи. Что не так с кодом?

[Ksenia2019]

Добрый день.
Я написала программу которая вычисляет дату пасхи.
Она работает, но дата пасхи в 2018 выходит не верная.
Подскажите пожалуйста в чем причина? pascal

var
 a,b,c,d,e,f,g :integer;
 year,month,day : integer;

begin
 writeln ('введите year ');
 readln(year);
 a := year mod 4;
 b := year mod 7;
 c :=year mod 19;
 d :=(19*c+15) mod 30;
 e := ( 2 * a + 4 * b - d + 34 ) mod 7;
 f := 3+(d+e+21)div 31;
 g := (d+e+21) mod 31;
 month := f;
 day := g + 1;
 writeln('Следующая Пасха состоится ',day,'.0',month,'.',year);
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[type_Oleg]

Все правильно считает. Я проверил - вот ссыла
Только она выдает даты по юлианскому календарю ( по "старому" стилю ).
Прибавьте 13 дней, будет по новому.
Например 26.03.2018 + 13 = 08.04.2018

[newerow1989]

function Pasha(Year: integer): TDateTime;
 var a, b, c: integer;
 begin
    a:=Year mod 19;
    b:=Year mod 4;
    c:=Year mod 7;
    a:=(19*a+15) mod 30;
    b:=(2*b+4*c+6*a+6) mod 7;
    a:=a+b;
    b:=-2+Year div 100-Year div 400;
    If TryEncodeDate(Year, 3, 22, Result) then
       Result:=Result+a+b else
       Result:=0;
 end;

http://newerow1989.narod.ru/publ/fun...emeni/1-1-0-13