Duvida programa bem simples com uso de IF's

[caduroxbr]

É um programa bem simples que calcula o peso ideal de acordo com fórmulas preestabelecidas para cada sexo.

Program PesoIdeal ;
var altura, peso:real;
sexo, homem, mulher:string;
 Begin
 writeln('insira seu sexo');
 readln (sexo);
 writeln ('insira sua altura');
 readln (altura);
 if (sexo=homem) then
 begin
 peso:=((72.7*altura)-58);
 writeln ('seu peso ideal e', peso);
 end;
 If (sexo=mulher) then
 begin
 peso:=((62.1*altura)-44.7);
 writeln ('seu peso ideal e', peso);
 end
 else
 writeln ('dados incorretos');

 End.

Mas sempre que o programa roda ele recebe os valores mas na hora do writeln entrar em ação ele digita "dados incorretos".

Já tentei tirar o else e o writeln de "dados incorretos" dali mas mesmo assim o que acontece é que o programa recebe os dados e não escreve nada pro usuario, '-'.

Achei que fosse algum problema relacionado as variaveis mas não sei.

[Visitante: LeandroMlopes]

veja as alteraçoes que fiz, e veja se funciona

Program PesoIdeal ;
var altura, peso:real;
sexo, homem, mulher:string;
Begin
writeln('insira seu sexo');
readln (sexo);
writeln ('insira sua altura');
readln (altura);
if (sexo='homem') then [COLOR="SeaGreen"]// coloca as simples aqui pois está passando texto em string[/COLOR]
begin
peso:=((72.7*altura)-58);
writeln ('seu peso ideal e', peso);
end;
If (sexo='mulher') then //  [COLOR="SeaGreen"]coloca as simples aqui pois está passando texto em string[/COLOR]
begin
peso:=((62.1*altura)-44.7);
writeln ('seu peso ideal e', peso);
end
else
writeln ('dados incorretos');

End.