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

TYPE
  yachts = record
  Name: string;           // название яхты
  Country: string;        // страна
  Displacement: real;     // водоизмещение (в тоннах)
  Useful_life: real;      // срок эксплуатации (в годах)
  end;
VAR
 Rec: yachts;
 F: text; //file of yachts;
 i:integer;
 z:real;
 FileName,k:string;
 N:array[1..10] of String;
 C:array[1..10] of real;
 min_useful_life: real;
 
BEGIN
  
  FileName:='yachts';
     assign (F, FileName);
     rewrite (F);
    With Rec do
    begin
     Name:='Diana ';
     Country:='Meksika';
     Displacement:=7;
     Useful_life:=40;
    end;
    write (F,Rec);
    With Rec do
    begin
     Name:='Elisabet ';
     Country:='England';
     Displacement:=6;
     Useful_life:=30;
    end;
    write (F,Rec);
    With Rec do
    begin
     Name:='Storm ';
     Country:='England';
     Displacement:=8;
     Useful_life:=30;
    end;
    write (F,Rec);
    With Rec do
    begin
     Name:='Poseidon ';
     Country:='Russia';
     Displacement:=9;
     Useful_life:=39;
    end;
   write (F,Rec);
  close(F);
  
  i:=1;
  writeln;
   reset (F);
    while not eof(F) do
  begin
   read(F,Rec);
   N[i]:=Rec.Name;
   C[i]:=Rec.Useful_life;
   i:=i+1;
  end;
  close (F);
 
 begin For i:=1 to 10 do
  if C[i] > C[j] then
    begin
      z:=C[i];
      C[i]:=C[j];
      C[j]:=z;
      k:=N[i];
      N[i]:=N[j];
      N[j]:=k;
    
    end;
 end;
END.