with Text_io; use Text_io; procedure dim4a is h1,h2,h3,h4: integer; index:integer:=0; package IIO is new Text_IO.Integer_io(integer); --need integer output use IIO; -- lets me use integer input output like get. begin put("Input a number please..."); get(h1); h2:=2; h3:=2; h4:=2; declare network:array(0..h1,0..h2,0..h3,0..h4)of integer; -- Dick changed double to Integer... begin network(0,0,0,index):=0; -- end; end;