type
 T2DBooleanArray = array of array of Boolean;
procedure Save2DBooleanArray(const A: T2DBooleanArray; S: TStream);
var
 writer: TWriter;
 i: Integer;
begin
 Assert(Assigned(S));
 writer := TWriter.Create(S, 8096);
 try
  writer.WriteInteger(Length(A));
  for i := 0 to Length(A) - 1 do
  begin
  writer.WriteInteger(Length(A[i]));
  writer.Write(A[i, 0], Length(A[i]) * sizeof(A[i, 0]));
  end; { For }
 finally
  writer.Free;
 end; { Finally }
end;
procedure Load2DBooleanArray(var A: T2DBooleanArray; S: TStream);
var
 reader: TReader;
 i, numrows, numcols: Integer;
begin
 Assert(Assigned(S));
 reader := TReader.Create(S, 8096);
 try
  numrows := reader.ReadInteger;
  SetLength(A, numrows);
  for i := 0 to numrows - 1 do
  begin
  numcols := reader.ReadInteger;
  SetLength(A[i], numcols);
  reader.Read(A[i, 0], numcols * sizeof(A[i, 0]));
  end; { For }
 finally
  reader.Free;
 end; { Finally }
end;