Подкоректируйте програмку пожалуйста!!!

[VADOS2009-1]

В старояпонском календаре был принят 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.

[Evgeniy26]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  g: Integer;
begin
  write('Vvedite g = ');
  readln(g);
  g := (g - 3) mod 12;
  case g of
    1:  writeln('krusa');
    2:  writeln('korova');
    3:  writeln('tigr');
    4:  writeln('zayac');
    5:  writeln('drakon');
    6:  writeln('zmeya');
    7:  writeln('loshad');
    8:  writeln('ovca');
    9:  writeln('mavpa');
    10: writeln('kyrica');
    11: writeln('sobaka');
    12: writeln('svininya');
  end;
  readln;
end.

http://shriyantra2007.narod.ru/lib/astro003.htm