type
TNameYear = record
NumbYear : Integer;
Name : Integer;
Color : Integer;
end;

const MyName : Array [0..11] of String = ('крыса','бык','тигр','заяц','дракон','змея','лошадь','овца','обезъяна','петух','собака','свинья');
MyColor: Array [0..9] of String = ('синий','синий','красный','красный','желтый','желтый','белый','белый','черный','черный');

var
//год данные которого мы знаем по календарю
First : TNameYear = (NumbYear: 1996; Name: 0;Color: 2);
//результат проверки
MyYear: TNameYear;

begin
MyYear.NumbYear := 2001;
MyYear.Name:= (12+First.Name+(MyYear.NumbYear-First.NumbYear) mod 12) mod 12;
MyYear.Color:=(10+First.Color+(MyYear.NumbYear-First.NumbYear) mod 10) mod 10;
writeln(MyName[MyYear.Name]);
writeln(MyColor[MyYear.Color]);
end.