Запись в типизированый файл

program fail_zap;
uses crt;
type ved=record
fam:string[20];
name:string[15];
otch:string[20];
tbn:integer;
hour:integer;
tarif:integer;
kol_izhd:integer;
zp:real  ;end;
var a:array [1..10] of ved;
i,j,n:integer;sum:real;
f:file of ved;
 
begin
clrscr;
assign(f,'1.dat');
for i:=1 to 10 do 
with a[i] do
begin
randomize;
 n:=5+random(8);
 for j:=1 to n do
 insert(chr(65+random(26)),fam,j);
 n:=3+random(5);
 for j:=1 to n do
 insert(chr(65+random(26)),name,j);
 n:=7+random(10);
 for j:=1 to n do
 insert(chr(65+random(26)),otch,j);
tbn:=500+i;
kol_izhd:=random(4);
tarif:=80+random(70);
hour:=6+random(6);
zp:=tarif*hour;
zp:=zp*30;
zp:=zp-(zp*0.01)-(zp-(kol_izhd+1)*5204)*0.12;
sum:=sum+zp;
end;
 
Rewrite(f);
for i:=1 to 10 do begin
write(f,a[i].tbn);
write(f,a[i].fam);
write(f,a[i].name);
write(f,a[i].otch);
write(f,a[i].kol_izhd);
write(f,a[i].hour);
write(f,a[i].tarif);
write(f,a[i].zp:5:3);end;
close(f);
 
readln;end.

program fail_zap;
 
uses
  crt;
 
type
  ved = record
    fam: string[20];
    name: string[15];
    otch: string[20];
    tbn: integer;
    hour: integer;
    tarif: integer;
    kol_izhd: integer;
    zp: real  ;
  end;
  arr = array [1..10] of ved;
 
var
  a: arr; 
  i, j, n: integer;
  sum: real;
  f: file of arr;
 
begin
  clrscr;  
  for i := 1 to 10 do 
    with a[i] do
    begin
      randomize;
      n := 5 + random(8);
      for j := 1 to n do
        insert(chr(65 + random(26)), fam, j);
      n := 3 + random(5);
      for j := 1 to n do
        insert(chr(65 + random(26)), name, j);
      n := 7 + random(10);
      for j := 1 to n do
        insert(chr(65 + random(26)), otch, j);
      tbn := 500 + i;
      kol_izhd := random(4);
      tarif := 80 + random(70);
      hour := 6 + random(6);
      zp := tarif * hour;
      zp := zp * 30;
      zp := zp - (zp * 0.01) - (zp - (kol_izhd + 1) * 5204) * 0.12;
      sum := sum + zp;
    end;
  assign(f, '1.dat');
  Rewrite(f); 
  write(f, a);    
  close(f);  
end.