type
hoge = array of array of Boolean;
procedure zigen( var Data: hoge );