Составить программу на языке паскаль авс, которая проверит вес по следующему условию: для мужчин: рост-100; для женщин: рост-110; программа должна выводить: 1. нужно поправиться 2. вес нормальный 3. нужно похудеть

Я так понял, что условие записано не полностью, ну да фиг с ним. 
Код программы в файле снизу. Пол вводить целыми словами "женский", "мужской" или "Женский", "Мужской".