Pascal/Turbo Pascal - PASAR FICHEROS COMO PARAMETROS A UNA PROCEDIMIENTO

TENGO QUE LEER CUATRO FICHEROS DE TEXTO Y ALMACENAR EL CONTENIDO EN DISTINTOS ARRAYS, 4 PARA SER EXACTO, ESTOY SESESPERADO PORQUE CUANDO INTENTO PASAR POR PARAMETRO EL NOMBRE DEL FICHERO PARA QUE EL PROCEDIMIENTO LO CAPURE Y ABRA EL FICHERO CON EL VALOR QUE LE HEMOS PASADO ME DA PROBLEMAS DE COINCIDENCIA DE TIPOS.
HE PROBADO PASARLO MEDIANTE PACKED ARRAY OF CHAR, OF BYTE Y NO FUNCIONA.
¿ALGUIEN SABE COMO HACERLO?
GRACIAS

Pues yo lo haría así.
const
n=10;
type
TArray=Array[1..n] of Integer;
var
FArray:File of TArray;
Array:TArray;
procedure LeerArray(var F:File of TArray; var A: TArray);
begin
Read(F,A);
end;

begin
Assign(FArray,'Arch.ext');
Reset(FArray);
LeerArray(FArray, Array);
Close(FArray);
end.

Y yo lo haría así

Type
TArreglo=Array [1..1000] of integer;
Var
Arreglos:Array [1..4] of TArreglo;
Procedure Cargar(nom:string;dest:TArreglo);
var
f:file of integer;
i:integer;
begin
assign(f,nom);
reset(f);
i:=0;
while not eof(f) do
begin
inc(i);
read(f,dest[i])
end;
close(f);
Begin
cargar('archivo1.dat',Arreglos[1]);
cargar('archivo2.dat',Arreglos[2]);
cargar('archivo3.dat',Arreglos[3]);
cargar('archivo4.dat',Arreglos[4]);
end.