Contributor: SWAG SUPPORT TEAM        

{
  This is a small Unit I wrote when I got tired of writing great gobs
  of nested "if thens" or pages of parenthetic blobs.
  With this Unit you can Write as many Boolean expressions
  as you like as a block of Boolean.
  True mode:
       all interior expressions must be True For the block to be True.
       if one interior expression is False then the block is False.
  False mode:
       all interior expressions must be False For the block to be False.
       if one interior expression is True then the block is True.
  Any ideas on enhancing it?
}
Uses
  Crt;

Const
  AllBool  : Boolean = True;
  BoolMode : Boolean = True;

Var
  S : String;

Procedure SetBool(Mode : Boolean);
begin
  AllBool  := Mode;
  BoolMode := Mode;
end;

Procedure Bool(Expression : Boolean);
begin
  if ((BoolMode) and (not Expression)) then
    AllBool := False;
  if ((not BoolMode) and (Expression)) then
    AllBool := True;
end;

begin
  ClrScr;
  S := '1 This is the best there is \.';      {init. String}
  SetBool(True);                {set checkmode For all True}
  Bool( Length(s) > 4 );        {series of Boolean expressions}
  Bool( s[3] in ['A'..'Z'] );
  Bool( Ord(s[1]) - 48 < 10 );
  Bool( Pos('This', s) > 0 );
  Bool( s[Length(s)] = '.');
  Bool( 2 + 3 = 5);
  if AllBool then
    Writeln('1. All expressions are True')
  else
    Writeln('1. At least one expression is False');

  SetBool(False);              {set checkmode For all False}
  Bool( Length(s) > 44 );      {series of Boolean expressions}
  Bool( s[3] in ['a'..'z'] );
  Bool( Ord(s[1]) - 48 > 10 );
  Bool( Pos('This', s) = 0 );
  Bool( s[Length(s)] = 'g');
  Bool( 2 + 3 = 4);
  if not AllBool then
    Writeln('2. All expressions are False')
  else
    Writeln('2. At least one expression is True');
  Readln;
end.