Введите на языке pascal. программа запрашивает пол (требуется ввести мужской или женский). если введено мужской, то вывести на экран фразу "вы - защитник отечества", иначе - вывести фразу "вам не повезло - женщины не служат в армии"

Var s:string;
begin;
writeln('Ваш пол?');
readl(s);
if (s='мужской') then 
writeln('Вы-защитник отечества');
if (s='женский') then
writeln('Вам не повезло - женцины не служат в армии');
end.