error 106

Program Best;                                                                 
Uses crt;                                                                     
type zp=record                                                                
     fio:String[20];                                                          
     god,godo:1890..2006;                                                     
     ocalg,ocppp,ocdm:1..5;                                                   
     ob:string[5];                                                            
     voc:1..5;                                                                
     end;                                                                     
Var sp:array[1..3] of zp;                                                     
    f:file of zp;                                                             
    i,z,x,n:Integer;                                                          
    nomer:1..9;                                                               
    k:string[4];                                                              
    stud:zp;                                                                 
procedure  vvod1;                                                             
begin clrscr;                                                                 
writeln(' vvod 3apisi № ',filepos(f)+1);                                      
seek(f,filesize(f));                                                          
with stud do begin                                                            
write('vvedite familiu - '); readln(fio);
write('vvedite god rogdenia - '); readln(god);
write('vvedite god okon4anii IIIkolbI  - '); readln(godo);
write('ocenka po fizike - '); readln(ocalg);
write('ocenka po matematike - '); readln(ocppp);
write('ocenka po russkomy - '); readln(ocdm);
write('nygdaetc9 v o64egitii - '); readln(ob);
write('ocenka vstypiteln ek3amenov - '); readln(voc);
write(f,stud);
end; end;
procedure chten;
begin
{$I-}
seek(f,0);
while (not eof(f)) do begin
 read(f,stud);
 with stud do begin
 if (ocalg=5) and (ocppp=5) and (ocdm=5) then begin
 write(' famili9  - '); writeln(fio);
 write(' ocenka vstypiteln ek3amenov - '); writeln(voc);
 writeln(' ocenki po predmetam: ');
 write('   ocenka po fizike - '); writeln(ocalg);
 write('   ocenka po matematike - '); writeln(ocppp);
 write('   ocenka po russkomy - '); writeln(ocdm);
end;
end; end;
{$I+}
end;
begin clrscr;
writeln('vvedite koli4estvo a66ityrientov');
readln(n);
 assign(f,'c:\as.txt');
rewrite(f);                                                                   
for nomer:=1 to n do vvod1;                                                   
close(f);                                                                   
writeln('IIIkolniki y kotorIbx po vsem predmetam stoit p9t: ');
writeln;
reset(f);                                                                    
chten;                                                                       
close(f);                                                                    
writeln;
writeln('vvedite da 4to6bi dopisat IIIkolnikov');
readln(k);
if (k='da') and (k='da') then begin
readln;
clrscr;
reset(f);                                                                     
for nomer:=n to 9 do vvod1;                                                   
close(f);                                                                     
clrscr;                                                                       
reset(f);                                                                     
chten;                                                                        
close(f);                                                                     
end;
readln;                                                                       
end.