Que estoy haciendo mal en este proceso?

[kdemia]

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.