В массив записей занести информацию из файла, в чем ошибка?

type
    C_C = record
    course:real;
    name:string[20];
    data:string[20];
end;
var  
    val:C_C;
    i,n:integer;
    f:file of C_C;
    a:array [1..100] of C_C;
begin
    Assign (f,'Z.txt');
    Rewrite(f);
    for i:=1 to 5 do
 begin
    with val do
 begin
    Write('Название валюты: ');
    Readln(name);
    Write('Курс валюты: ');
    Readln(course);
    Write('дата курса: ');
    Readln(data);
 end;
    Write(f,val);
 end;
    Close(f);
 begin
    Reset(f);
    Read(f,val);
    for i:=1 to n do
      begin
      Readln(f,a[i]);
      Writeln(a[i]);
      end;;
end;
    Close(f);
end.

type
    C_C = record
    course:real;
    name:string[20];
    data:string[20];
end;
var
    val:C_C;
    s:string;
    i,n:integer;
    f:text;
    a:array [1..100] of C_C;
begin
Assign (f,'Z.txt');
Rewrite(f);
for i:=1 to 5 do
with val do
 begin
  Write('Название валюты: ');
  Readln(name);
  Write('Курс валюты: ');
  Readln(course);
  Write('дата курса: ');
  Readln(data);
  Writeln(f,name,' ',course,' ',data);
 end;
Reset(f);
n:=0;
while not eof(f)  do
 begin
  Readln(f,s);
  n:=n+1;
  a[n].name:=copy(s,1,pos(' ',s)-1);
  delete(s,1,pos(' ',s));
  a[n].course:=strtofloat(copy(s,1,pos(' ',s)-1));
  delete(s,1,pos(' ',s));
  a[n].data:=s;
 end;;
close(f);
writeln('Массив записей');
writeln('----------------------------------------');
writeln('|Название валюты|Курс валюты|Дата курса|');
writeln('----------------------------------------');
for i:=1 to n do
with a[i] do
writeln('|',name:15,'|',course:11:2,'|',data:10,'|');
writeln('----------------------------------------');
end.

Close(f);