Помогите пожалуйста! Нужно написать программы для номеров 4 и 5, на языке Паскаль

 var s,p: string;  
begin  
write('Введите цвет сигнала сфетофора ');  
readln(s);  
case S of  
'Зеленый': writeln('Проезжайте');  
'Желтый':  writeln('Ожидайте');  
'Красный': writeln('Стойте')  
else writeln('Такого сигнала нет')  
end  
end.