Něco pro znalce Pascalu

Program Party;
Uses Vine, Snack, Condoms, Girls;

{$I Variable.Pas}

PROCEDURE Prepare;
  Begin
    Find(House);
    If ParentsIn(House)=True Then FindFree(House);
    Buy(Bottles);
    Buy(Snack);
    Call(Friends);
    Call(Girls);
  End;{ Prepare }

PROCEDURE Drinks;
  Begin
    Open(Bottles);
    Repeat
      Drink(Next(Gramms100));
      Zakus:=Eat(Next(Foods));
    Until TwinEyes;
  End;{ Drinks }

PROCEDURE Dances;
  Begin
    Music:=True;
    Call(OneGirl);
    Go(DancingRoom);
    With Music.Jump Do 
      Begin
        If Girl(Drink)>Normal(Drink) Then 
          Begin
            Touch(AssOfGirl);
            Touch(BrestOfGirl);
          End
        Else 
          Begin 
            Go(DrinkingRoom);
            Let`s(Girl):=Drinks(More);
            Return(DancingRoom);
          End;
      End;
  End;{ Dances }

PROCEDURE Fuck( Who : Sex );
  Var HowMany: LongInt;
  Begin
    If Who<>Girl Then Write('Are yor sodomite ??!');
    Find(DarkRoom);
    Close(Door_and_windows);
    If Not Find(BedInRoom) Then BedInRoom:=AnyTable;
    If Not Find(Anytable) Then 
      Begin
       Go(House.outside);
       Find(Bush); 
       BedInRoom=AnyBush;
      End;
    HowMany:=0;
    Repeat
      Call(Next(Who));
      Delete(DressOf(Who));
      Kiss(Lips,Brest,OtherPartsOfBody);
      Repeat
        Asm
          PUSH YourPenis
          POP  YourPenis
        End;
      Until YouHaveOrgasm;
      Inc(HowMany);
      If (HowMany mod 15 = 0) then Write('You are BIG man !!!');
    Until YourPenisStay;
  End;{ Fuck }

BEGIN { Party - Main Program }
  Prepare;
  Drinks;
  If Who(Drink)>Normal(Drink) Then Who:=FaceDown;
  Dances;
  Fuck(Girls);
  If YourPenisStillStay Then
   Begin
     Call(AnotherGirls);
     Drinks;
     Dances;
     Fuck(Girls);
   End;
  Go(AtHomes);
END.{ Main Program }