) Почему именно так: if (t>=1) and (t<9) then gotoxy(wherex+2,wherey-6) </span>
else gotoxy(wherex+1,wherey-6); (не понятно почему именно диапазон месяцев от 1 до 8 включительно?)
2) Зачем писать так: if d+1=8 then {если день недели воскресенье} , а не вот так if d=7 then ? (если писать что d=7, то числа месяцев отходят от нужной позиции)