Проблема с правильным выводом текста

[Bigtyoma]

Помогите пожалуйста,вот есть код, по идее должен выводить в label2 в зависимости от количества дней между сегодняшней датой и датой в datetimepicker слова или "дней" или "дня" или "день", но ошибку в упор не вижу, хоть убейте, помогите найти и исправить.

var
days,k:integer;
q,z,r:integer;
begin
k:=days;
q:= k mod 100;
z:= 11;
r:= 13;
if z <= q <= r then
Form2.label2.Caption := ' дней'
else
case q of
1: label2.Caption := ' день';
2..4: label2.Caption := ' дня';
else
label2.Caption := ' дней;
end;

[mihali4]

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор