Pascal/Turbo Pascal - Meter un fichero en un array

Hola a todos haber si me podriais ayudar, quiero meter una serie de ficheros en un array para ir almacenandolos me podriais decir como hacerlo? gracias.

type
tiporegistro=record;
dato:integer;
end;

var
contador:longint;
registro:tipoRegistro;
begin
contador:=1;
{aperturas el archivo}

{iniciasel ciclo de lectura}
while .not. eof(Fichero) do
begin
with Registro of
begin
Arreglo[Contador].Dato:=dato;
end;
inc(contador);
end;
end.

por asi ejmplificarlo, tendras que depurar detalles de registros, y de apertura de archivos

Gracias por tu respuesta pero llegue ya a una conclusion que es esta:

program MuestraParametros ;

var

i : Integer ;
texto: text;
linea: string;

begin

WriteLn ( ' Nombre del programa : ' , ParamStr ( 0 ) ) ;

for i :=1 to ParamCount do

begin
WriteLn ( 'Fichero ' , i , ': [ ' , ParamStr ( i ) , '] ' ) ;
assign(texto,paramstr(i));
reset(texto);
while not eof(texto) do
begin
while not eoln(texto) do
begin
readln(texto,linea);
writeln(linea);
end;
end;
close(texto);

end ;

end .

Con esto mediante linea de comandos metes todos los ficheros que quieras y se van qedando registrando en paramstr para usarlos mas tarde ya lo que pongo de writeln(linea) eso es cosa mia muestra el texto por pantalla y demas pero haciendo esto ya no tengo problema. Gracias por la respuesta y espero que esto sirva para alguien mas un saludo.