В чём может быть ошибка?

uses crt;
 const nmax=20;
 type Veschestva = record
        nom  : string[15];
        ves  : real;
        pro  : string[15];
      end;
 
 var
 f:file of Veschestva;
 v: array [1..nmax] of Veschestva;
 i,n,c:integer;
 
 begin
 assign(f,'C:\in.dat');
 rewrite(f);
 Write('Введите кол-во веществ: '); readln(n);
 For i:=1 to n do
     begin
 
          write('Название ',i,' вещества: ');   readln(v[i].nom);
          write('Удельный вес '); readln(v[i].ves);
          repeat
          write('Проводимость: 1-проводник, 2-полупроводник, 3-изолятор ');
          readln(c);
          until(c>0) and (c<4);
          case c of
          1: v[i].pro:='проводник';
          2: v[i].pro:='полупроводник';
          3: v[i].pro:='изолятор';
          end;
     write(f,v[i]);
     end;
 
 close(f);
 end.

uses crt;
 const n=10;
 type   Veschestva = record
        nom  : string[15];
        ves  : real;
        pro  : string[15];
        end;
 
 var
 f,g: file of Veschestva;
 v,vv: array [1..n] of Veschestva;
 i,j,c:integer;
 
 procedure Swap (var x,y: Veschestva);
 var buf: Veschestva;
 begin
 buf:=x;
 x:=y;
 y:=buf;
 end;
 
 begin
 assign(f,'C:\in.dat');
 reset(f); j:=0;
for i:=1 to 10  do
       read(f,v[i]);
for i:=1 to 10  do
       begin
       if v[i].pro='проводник' then
          begin
          inc(j);
          vv[j]:=v[i];
          end;
       end;
 c:=0;
 while c<=j do
 begin
 for i:=1 to j-1 do
    if vv[i].ves<vv[i+1].ves then Swap(vv[i],vv[i+1]);
 inc(c);
 end;
 assign(g,'C:\out.dat');
 rewrite(g);
 for i:=1 to j do
     write(g,vv[i]);
 writeln('Данные о проводниках занесены в файл 2 и отсортированы');
 write('Нажмите 1, чтобы просмотреть содержимое файла 2 ');
 readln(c);
 if c=1 then
   begin
   reset(g);
   while not eof(g) do
         begin
         read(g,v[i]);
         writeln(v[i].nom:15,v[i].ves:7:2,v[i].pro:15);
         end;
   end;
 close(f);
 close(g);
 end.

for i:=1 to 10  do
       read(f,v[i]);

n:=0;
while not eof(f) do
 begin
  n:=n+1;
  read(f,v[n]);
 end;