Работа с файлами

type
C_C = record
data:string;
course:real;
name:string;
end;
var a:array[1..3]of C_C;val:string;ind:=0;i:integer;
begin
  a[1].name:='доллар';a[1].course:=63.2151211;a[1].data:='01.05.2018';
  a[2].name:='фунт';a[2].course:=86.3518554;a[2].data:='01.05.2018';
  a[3].name:='тенге';a[3].course:=0.193112633;a[3].data:='01.05.2018';
  
  Writeln('введите валюту');
  Readln(val);
  
  for i:=1 to 3 do
    if a[i].name=val then
    begin
    ind:=i;
    break
    end;
    
  if ind>0 then
    Writeln('Найдено: ',a[ind].name,' ',a[ind].course,' ',a[ind].data)
    else Writeln('Такой валюты нет в списке');
end.

type
    C_C = record
    course:real;
    name:string[5];
    data:string[5];
end;
var  val:C_C;i:integer;f:file of C_C;s:string;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);

    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.