Составить программку на языке Паскаль АВС, которая проверит вес по последующему

program weight;
var s:char;
w, h:real;
begin
write(Ваш пол? (м - мужской, ж - дамский) );
readln(s);
write(Ваш вес в кг? );
readln(w);
write(Ваш рост в см? );
readln(h);
case s of
м: if h - 100 gt; w then writeln(Вам надобно поправиться)
else
if h - 100 lt; w then writeln(Для вас надо похудеть)
else writeln(Вес нормальный);
ж: if h - 110 gt; w then writeln(Для вас надобно поправиться)
else
if h - 110 lt; w then writeln(Для вас надобно похудеть)
else writeln(Вес нормальный)
end
end.