Öröknaptárat kell csinálni Lazarusban, ami megmondja hogy annak az évnek abban a honapban az a nap melyik napra esett, de nem értem mi a baj, vki tud segiteni?

program hatvankilenc;

VAR y,s,m,h,n:real;

u,x:integer;

begin

write('evszam elso szamjegyei:');

readln(s);

write('evszam masodik szamjegyei:');

readln(m);

write('honap:');

readln(h);

write('nap:');

readln(n);

if (h=1) then h:=11;

if (h=2) then h:=12;

if (h<>1) and (h<>2) then s:=s-2;

y:=((int[s/4])-(2*s)+m+(int[m/4])+(int[2,6h-0,199])+n)

writeln(y:0:0);

u:=trunc(y);

x:=(u mod 7);

writeln(y);

if (x=1) then

writeln('hetfo');

if (x=2) then

writeln('kedd');

if (x=3) then

writeln('szerda');

if (x=4) then

writeln('csutortok');

if (x=5) then

writeln('pentek');

if (x=6) then

writeln('szombat');

if (x=7) then

writeln('vasarnap');

readln;

end.