Como gravar un array en disco

[__cadetill]

si el array es de un tipo definido por ti, tienes que declarar la variable de ese tipo, es decir

type pepe = Record of
      nombre : string;
      telf : string
end;

var F : file of pepe;
    a : array of pepe;
    i : integer;
begin
   AssignFile(F, nombrearchivo);
   Rewrite(F):
   for i := 0 to Hi(a) do
      Writeln(F, a[i]);
   CloseFile(F);
end;

(no esta probado, lo he hecho de cabeza)

Si no es de un tipo propio, es mas sencillo todabia

var F : TextFile;
    a : array of string;
begin
   AssignFile(F, nombrearchivo);
   Rewrite(F):
   for i := 0 to Hi(a) do
      Writeln(F, a[i]);
   CloseFile(F);
end;

como ves, la forma de grabar es identica en un caso y en el otro

espero te sirva