По числу текущего месяцаопределить день недели. На Pascal программка нужна

По числу текущего месяца
определить день недели.

На Pascal программка нужна)
ПОМОГИТЕ ПОЖАЛУЙСТА))

  • ) Почему именно так: if (t>=1) and (t<9) then gotoxy(wherex+2,wherey-6) 
    else gotoxy(wherex+1,wherey-6); (не понятно почему именно диапазон месяцев от 1 до 8 включительно?) 

    2) Зачем писать так: if d+1=8 then {если день недели воскресенье} , а не вот так if d=7 then ? (если писать что d=7, то числа месяцев отходят от нужной позиции)