В Паскале немного доделать код

[Novenkaja]

Всем добрый вечер!
У меня такая просьба.Вот дан мой код,он сделан,компилирует и выдаёт ран,в ране всё выдаёт нужное по заданию,Но,в одном месте он ошибается.А имеено когда надо узнать день недели.Иногда попадает в нужный день,но чаще нет.
Т.е. там по заданию-ввожу год,месяц,день и затем он должен мне выдать день недели-а в этом месте ошибается.

если что,вот условие задания-перевела как смогла,по русскки оно звучит немного коряво....

Создать функцию с константным массивом, где содержатся названия дней недели.Полученное число(от 1 до 7) функция превращает в текстовую форму.Создать программу,которая из введённых трёх чисел(год,месяц,дата) образует на выходе на экране в текстовой форме,например "2010.3.1-сегодня понедельник"

program  masivs;  {4.uzd}
uses crt;
const nedelja : array[1..7] of string = ('pirmdiena','otrdiena','treshdiena','ceturtdiena','piektdiena','sestdiena','svetdiena');
      N=7;
type mas=array[1..N] of integer;
var  x:mas;
     G,M,D:integer;
     NDN:integer;     {Nedeljas Dienas Numurs}
     eksistejosha_diena:boolean;


function nedeljas_dienas_numurs(var Gads,Menesis,Diena:integer):integer;
var ds:integer;                     {ds=dienu skaits}

begin
        Gads:=Gads mod 28;
        ds:=3+(365*Gads)+(Gads div 4)+1;
        nedeljas_dienas_numurs:=ds mod 7+1;
end;


function dienunosaukums(var numurs:integer):string;
begin
    dienunosaukums:=nedelja[numurs];
end;

begin
    clrscr;
    writeln('Shi programma var pateikt kuraa dienas nedeljaa ir datums!');
    repeat
        writeln('Ludzu ievadiet gadu: ');
        readln(G);
    until (G>=0);
    repeat
        writeln('Ludzu ievadiet menesi: ');
        readln(M);
    until ((M>=1) and (M<=12));
    repeat
        writeln('Ludzu ievadiet dienu: ');
        readln(D);
    until (((M=1) or (M=3) or (M=5) or (M=7) or (M=8) or (M=10) and (D<=31))
          or ((M=2) and (D<=29) and (G mod 4 = 0))
          or ((M=2) and (D<=28) and (G mod 4 <> 0))
          or ((M=4) or (M=6) or (M=9) or (M=11) and (D<=30))) ;

    NDN:=nedeljas_dienas_numurs(G,M,D);
    writeln('Jusu diena ir ',dienunosaukums(NDN),'!');


readln;
end.