Re: Request for critics

[tmoran@acm.org]

A few additional minor suggestions:
     Image : constant array(Cell_State) of Character
       := (Active => '*', Inactive => ' ');
then
     procedure Show(Row : in Row_Of_Cells) is
       use Ada.Text_IO;
     begin
        for I in Row'range loop
          Put(Image(Row(I)));
        end loop;
        New_Line;
     end Show;

and
     New_State : constant array(Cell_State, Cell_State) of Cell_State
       := (Active   => (Active=>Inactive, Inactive=>Active),
           Inactive => (Active=>Active, Inactive=>Inactive),
then
     New_Automata(Cell_Index) := New_State(Automata(Cell_Index - 1),
                                           Automata(Cell_Index + 1));