Помогите пожалуйста^^ Дано целое число k(1 меньше =k меньше =365).Определить каким днем недели (понедельником ,...,воскресеньем) является k-ый день невисокосного года ,в котором 1 января -понедельник

Pascal var   k,a : integer;    begin  readln (k);  a := k mod 7;  case a of  1 : writeln (k,' Понедельник');  2 : writeln (k,' Вторник');  3 : writeln (k,' Среда');  4 : writeln (k,' Четверг');  5 : writeln (k,' Птница');  6 : writeln (k,' Суббота');  0 : writeln (k,' Воскресенье');   end; end.