Написать программу которая подбирает спутника жизни пол мужской рост не меньше 170 см, возраст не больше 17. в программе паскаль

Var e: integer;

h: real;

m: string;

begin

writeln ('Введите пол') ;

readln (m) ;

writeln ('Введите рост (см) ') ;

readln (h) ;

writeln ('Введите возраст') ;

readln (e) ;

if m[1] = 'м') and (h >=170) and (e<=17) then

writeln ('Спутник')

else

writeln ('Не спутник') ;

end.