помогите пожалуйста решить...

помогите пожалуйста решить задачу,на ветке сидело n ворон,вывести эту фразу в соответствии с правилами русского языка.до 100. языкпаскаль

 

по введенному натуральному числу n(n<=100) обозначаешему количество ворон вывести надпись ,на дереве n ворон.где ворона склоняеться соответсвено n:'ворон'.'ворона"вороны' в случаем n превышаюшего 100 вывести надпись 'ветка обламилась'
 
uses crt;

var n:integer;

begin

clrscr;

repeat

write('Введите число от 1 до 100 N = ');

readln(n);

until n>0;

case n of

11..14:write('сидело ',n,' ворон');

1..10,15..100: case n mod 10 of

               1:write('На дереве сидела ',n,' ворона');

               2..4:write('На дереве сидели ',n,' вороны');

               0,5..9:write('На дереве сидело ',n,' ворон');

               end

else write('Ветка обломилась!');

end;

readln;

end.