42 procedure initModule();

    42 procedure initModule();

    43 procedure freeModule();

    43 procedure freeModule();

    44 

    44 

    45 implementation

    45 implementation

    46 

    46 

    47 const

    49 const

    48     MATRIX_STACK_SIZE = 10;

    50     MATRIX_STACK_SIZE = 10;

    49 

    51 

    50 type

    52 type

    51     TMatrixStack = record

    53     TMatrixStack = record

   256         begin

   258         begin

   257           for j:=0 to 3 do

   259           for j:=0 to 3 do

   258             write(Result[i, j]);

   260             write(Result[i, j]);

   259           writeln;

   261           writeln;

   260         end;

   262         end;

   262     end;

   264     end;

   263     {$ENDIF}

   265     {$ENDIF}

   264 

   266 

   265 end;

   267 end;

   266 

   268