Вывод в типизированный файл

type file1 = record
             catal,name,resol,data: string;
             V: integer;
            end;
     a_mas= array [1..nmax] of file1;
     dfile=file of string;

Procedure OutputFile (a:a_mas; var f:text; var f1:dfile); //a- массив с данными типа string
var i:integer;
begin
 Assign(f,'C:\Users\1\Documents\Delphi7\Practice\file_output.txt'); rewrite(f);
 Assign(f1,'C:\Users\1\Documents\Delphi7\Practice\file_output.dat'); rewrite(f1);
 For i:=1 to 15 do
  begin
   writeln (f,a[i].catal,'\',a[i].name,'.',a[i].resol,'    ',a[i].V,'    ',a[i].data);//вывод в текстовый файл
   writeln (f1,a[i].catal,'\',a[i].name,'.',a[i].resol,'    ',a[i].V,'    ',a[i].data);//тут появляется ошибка
  end;
 close(f);
 close(f1);
end;

dfile=file of file1;

   With a[i] Do
   writeln (f1,catal,name,resol,data,V);

   writeln (f1,a[i]);

type file1 = record
             catal,name,resol,data: string;
             V: integer;
            end;
     a_mas= array [1..nmax] of file1;
     dfile=file of file1;
var a:amas;
    f:d_file;
    i:integer;
begin
..........
for i:=1 to n do
write(f,a[i]);//не writeln!

catal,name,resol,data: string[255];