bitpacked array

[User4martin]

On the writeln line inspect a

(pdr) inspect a
A = array[0..2] of Boolean = [True, False, False]

program project1; {$Mode objfpc}
type TBoolA = bitpacked array [0..2] of boolean;
var a: TBoolA;
begin
  a[0] := True;
  a[1] := False;
  a[2] := True;
  write(a[1]);
end.