Que tal gente, queria saber porque no me compila este proceso, osea entiendo que es porque el arreglo requiere una constante como dimension pero le mando una constante

. Ojala me ayuden.
Nota: no puedo poner un arreglo dinamico porque el File of necesita algo con un rango definido..
Este es el proceso:
Código SQL
[-]procedure PasarAArchivo(const Alto, Ancho: Integer);
type
Arreglo = Array[0..Ancho,0..Alto] of integer;
var
Map : Arreglo;
FMap: File of Arreglo;
begin
//bloque de instrucciones
end;
Aunque mas que obvios estos son los errores:
http://imagenes.sitiosnc.info/?di=2129961635110
Muchas Gracias.
Saludos, kdemia.