Error 74 : Constant and CASE types do not match

Program V1;
type Signal = (Red,Yellow,Green);
Coler = (Blue,Orange);
var s : signal;
c : coler;
begin
{...}
case s of
Red : writeln('Stop');
Yellow : writeln('Caution');
Green : writeln('Start');
Blue : writeln('Pause');
end;
end.
Мне нужно обяснить в чём ошибка!!