Помогите! Создайте программу в pascal по обучению перехода дороги на сигнал сфетофора,срочно!

program jwbdjd;
var x: String;
begin
writeln('Введите цвет светофора (красный, желтый, зеленый)');
readln(x);
if x='зеленый' then
writeln('На ',x,' цвет можно переходить')
else
writeln('На ',x,' цвет нельзя переходить');
end.