Я знаю, что я зануда, но...

Не компилится.
Нет процедуры "Go()".
Входит в состав стандартной библиотеки?
Многие переменные (например:"YouHaveOrgasm") неопределенны или являются внешними.

И главное!
Программа зависит от апаратной части (и очень сильно). Ассемблерная вставка "PUSH... POP" скорей всего работать не будет, так как на процессоре отсутствует регистр "YourPenis". А скорость будет очень высокой. Я бы после каждого оператора (PUSH and POP) вставил паузы, длительность которой уменьшал бы экспоционально для достоверности.

Строчку "If WhoGirl Then Write('Are yor sodomite ??!')"
я бы написал как "If Who != Girl Then Write('Are your sodomite ??!')"

Кроме того, не всегда правильно организованы циклы и выходы из процедур.

Мой проджек-менеджер сказал, что надо всё переписать и дал 2 дня.

P.S. I am big man!
P.P.S. Кстати, отсутствие переменной Condoms в используемых (а не просто задекларированных) переменных даёт повод задуматся о многих других переменных (Baby, AIDS etc ).

Rost, зачет:):)

:-)))))))))))))
приятно с умными людьми поговорить :-))))

Использование команд ассемблера push/pop значительно повышает скорость выполнения программы..

А где описание процедуры Touch() ? Она входит в состав библиотек ? :) Rost молодечик! Очень грамотный провел анализ кода :)