Помогите составить программу в Pascal

Program Goroskop;
Var
god : integer;
Begin
writeln('Введите год: ');
readln(god);
case (god mod 12) of
0 : writeln ('Обезьяна');
1 : writeln ('Петух');
2 : writeln ('Собака');
3 : writeln ('Свинья');
4 : writeln ('Крыса');
5 : writeln ('Вол');
6 : writeln ('Тигр');
7 : writeln ('Заяц (Кот) ');
8 : writeln ('Дракон');
9 : writeln ('Змея');
10 : writeln ('Лошадь');
11 : writeln ('Коза');
end;
readln;
End.

const a:array[0..11]of string=('aa','бб','вв','гг','дд','ее','жж','зз','ии','лл','мм','нн');
var n:integer; begin readln(n); writeln(a[n mod 12]); readln end.

Всякие аа, бб и т. д. сама заменишь названиями животных, не буду лезть в Википедию. Кстати, это не китайский гороскоп, а китайский календарь.
P.S. Вот Programmer Web-Developer уже постарался за тебя найти названия :)

Во-первых есть тонкость. Надо не просто вводить год, а указывать, что год должен быть введен Китайский. Т. к. НГ в Китае вообще-то не совпадает с той-же Европой и плавает с конца "нашего" января до конца "нашего" февраля. Более того традиционный отсчет начинается с 2397 года до н. э.

Ну это если делать по правилам.
Предыдущий вариант если рассматривать - просто делается массивом.
Массив от 0 до 11 из строк. От остатка от деления берется получается индекс. Вообще программа в 5-7 строчек.

Полное решение писать не буду, т. к. данных уже достаточно.

ну у них у всех разница в 12 лет, тут банальное составление цикла с проверкой и if - then