Помогите исправить ошибки и доделать? Задачка на Паскале!

[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.

[генерал]

дели год на 12, остаток от деления = номер подцикла, с циклом так же

[VADOS2009-1]

можна написать готовое а то уже зашиваюсь. Пожалуйста