Напишите программу которая выводит на экран слово "женский" при вводе символа ж и словa " мужской" при вводе символа м

Var a: char;
begin
     readln(a);
     if (a = 'М') then writeln('Мужской');
     if (a = 'Ж') then writeln('Женский');
end.

Проверил =)