Найдите ошибки и исправте??? Пожалуйста Очень срочно

[VADOS2009-1]

Помогите пожалуйста доделать задачку!!! Очень СРОЧНО
Дано 5 цветов: зелёный, красный, жёлтый, белый и чёрный. Например 1984 год - год начала очередного цыкла - называлса годом зелёной крысы. а) значение n >- 1984
б) n может быть любым натуральным числом. На скока я понял условие нада шоб вводиш год а оно выводит назавание.
Вот ето название изи сборника. Использовать нада Условный оператор!!!
В старояпонском календаре был принят 60 летний цикл, состоящий из пяти 12-летних подцыклов. Позцыклы обозначались цветом: зелёный, красный, жёлтый, белый и чёрный. Внутри кажного подцыкла , года носили название животных (крыса корова тигр заяц дракон змея лошадь овца обезьяна курица собака и свинья). Например 1984 год - год начала очередного цыкла - называлса годом зелёной крысы.
Составить програму которая по заданому номеру года нашей еры печатает его название по старояпонскому календарю. Расмотреть такие случаи:
а) значение n >- 1984
б) n может быть любым натуральным числом.
Вот то шо я сам пробовал но шото не очень помогите:
program year;
var g:integer;
begin
writeln('Vvedite g=');
readln(g);
case g of
1999:writeln('zayac');
2000:writeln('drakon');
2001:writeln('zmeya');
2002:writeln('loshad');
2003:writeln('ovca');
2004:writeln('mavpa');
2005:writeln('kyrica');
2006:writeln('sobala');
2007:writeln('svininya');
2008:writeln('krusa');
2009:writeln('korova');
2010:writeln('tigr');
end;
readln;
end.
Напишите прогу так как она должна быть

[diliana]

используй интервалы допустимых значений, например

1999..2010: writeln('green');
2011..2023: writeln('red');