[PhoeniX]

Как я понял, это задачка из универовских/школьных? Какие же программисты оттуда выйдут...

Вопщем, создай константу-массив с количеством дней в месяцах. А дальше цикл while и

Код:

dec(k1,ЧИСЛО_ДНЕЙ_В_МЕСЯЦЕ[m]);
inc(m);

и подобные конструкции.