Помогите пожалуйста написать программу delphi

дано целое число k (1<=k<=365) присвоить целочисленной величине n значение 1,2,...6 или 0 в зависимости от того, на какой день недели (понедельник, вторник,.., суббота или воскресенье) приходиться k-й день года, в котором 1 января:
а) понедельник
б) вторник
в) d-й день недели (если 1 января -понедельник, то d=1,если вторник d=2,...если воскресенье d=7 )