[alvaroiba]

ah pues entonces muy facil, declara el array como array de doubles, y despues deberas cambiar la linea de inc(array) por array[x] := array[x]+1 y ya ta.