Histograma

[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.

[javikanin]

Ya lo habia probado, pero es que da una excepcion que se sale del programa