VAR
   b,c: BOOLEAN;
...
   b := TRUE;
   c := FALSE;
...