И снова "unexpected end of file"

uses crt,dos;
const pr0='позивний'; pr1='немае звiту'; pr2='немае пiдтв.';pr3='pозходж. в часi';
 pr4='дiапазон'; pr5='контp. номеp';pr6='повтоpний';pr7='час змагань';pr8='*';
type name=string[6];
var n,i,ii,iii,j,g,h,m,mo,tt,nn,z,count,pidtv,ptv,tur,turc,turn:integer;
  pz,kz,kt,pq,pc,po,pt,tpt,tpq,tpo,tp18,tp35,tp70,bp:integer;
                    p18,p35,p70,o18,o35,o70,q,c,o:integer;
                   pp:real;
                  pzt:array [1..4] of integer;
                  kzt:array [1..4] of integer;
                 call:array [1..2] of name;
                    b:array [1..2] of integer;
                    t:array [1..2] of integer;
                   n1:array [1..2] of string[7];
                   n2:array [1..2] of string[7];
                   pr:string[15];
                 calp:array[1..400] of name;
                bandp:array[1..400] of integer;
                bando:array[1..400] of integer;
                  trp:array[1..400] of integer;
                 oblp:array[1..400] of string[9];
                   cl:array[1..400] of name;
                  obl:array[1..400] of string[3];
                 {calc:array[1..400] of name;}
                   ob:string[3];
                   cp:string[6];
                  ccp:string[6];
   f,ff,f1,ff1,ff2,f2,fo,f3,f4,f5,f6:text;
 
            nam,calln:name;
                   bb:boolean;
                label 1,2,3;
 
 function tim(tm:integer):integer;
  begin
   tim:=(tm div 100)*60+(tm mod 100);
  end;
BEGIN
 ClrScr;
 write('час початку змагань (вводити без роздiлових знакiв) ');readln(pz);
 write('час закiнчення змагань ');readln(kz);
 write('кiлькiсть мiнi-турiв ');readln(kt);
  for i:=1 to kt do begin
   write(i,'-й тур: початок ');read(pzt[i]);
   write('         кiнець  ');readln(kzt[i])
  end;
 write('допустиме pозходження в часi (хв.) ');readln(tt);
 write('очок за зв"язок ');readln(q);
 write('очок за коpеспондента ');readln(c);
 write('очок за область ');readln(o);
 assign (f,'\refut\in\spysok.in'); assign (f1,'\refut\rez\spcall');
 assign (ff,'\refut\rez\2');rewrite(ff);
 
  reset (f);
 {-----Зчитування списку позивних i областей-----}
 assign (fo,'\refut\in\spysobl.in');reset(fo);i:=0;
  while not eof(fo) do begin
   while not eoln(fo) do begin
    inc(i);read(fo,cl[i]);read(fo,obl[i]);
   end;
    readln(fo);
  end;
  nn:=i;close(fo);
  {----------------------------------------------}
 
  repeat
   1: readln (f,nam);clrscr;gotoxy(5,10);
   write('Обробляється звiт ',nam);
    assign(ff1,'\refut\ot\'+nam);
     assign (f2,'\refut\rez\'+nam+'.rez');{write(' ','\refut\rez\'+nam+'.rez');}
     rewrite(f2);
     {if IOresult<>0 then goto 1;}
     reset(ff1);n:=0;m:=1;mo:=1;pidtv:=0;ptv:=0;pp:=0;tpt:=0;tpq:=0;tpo:=0;
     h:=0;p18:=0;p35:=0;p70:=0;o18:=0;o35:=0;o70:=0;
        assign (f3,'\refut\rez\povt');rewrite(f3);
  assign (f4,'\refut\rez\povt1');rewrite(f4);
  assign (f5,'\refut\rez\povt2');rewrite(f5);
  assign (f6,'\refut\rez\povt3');rewrite(f6);
  close(f3);close(f4);close(f5);close(f6);
                           for z:=1 to 300 do begin
                                 oblp[z]:='         ';
                                 bando[z]:=0;bandp[z]:=0;
                    end;
    repeat
     pr:='';pq:=q;pc:=c;po:=o;
     read (ff1,call[1]); read (ff1,b[1]); read (ff1,t[1]);
     read (ff1,n1[1]); readln (ff1,n2[1]);
      assign(ff2,'\refut\ot\'+call[1]);
      bb:=true;inc(n);
      for i:=1 to kt do begin    {------визначення номерiв мiнiтурiв------}
       if (t[1]>=pzt[i]) and (t[1]<=kzt[i]) then
         begin
          turn:=i;break;
         end;
      end;
      {$I-}
   3:   reset (ff2);
      {$I+}
        if IOresult<>0 then
                          begin
                           reset(f1);bb:=false;
                            repeat
                               read (f1,calln); readln (f1,count);
                                     if (calln=call[1]) then
                                      begin
                                       if count<7 then pr:=pr0 else pr:=pr1;
                                         pq:=0;pc:=0;close (f1);
                                        goto 2;
                                      end
                                     else begin
                                     end
                            until eof(f1);
                           close(f1);
                          end
         else begin
 
              repeat
              gotoxy(12,12);write(call[1]);
                read (ff2,call[2]);writeln('  ',call[2]);
                 read (ff2,b[2]);
                  {$I-};
                  read (ff2,t[2]);
                read (ff2,n1[2]); readln (ff2,n2[2]);{$I+};
               if (call[2]=nam) and ((n1[1]=n2[2]) or (n2[1]=n1[2])) then
                 begin
                 if abs(b[1]-b[2])>1 then pr:=pr4 else pr:='';
                 if abs(tim(t[2])-tim(t[1]))>tt then pr:=pr3;
                 if (n1[1]<>n2[2]) or (n1[2]<>n2[1]) then pr:=pr5;
                 break;
                 end
               else pr:=pr2;
              until eof(ff2);
            2: if pr<>'' then begin
                 pq:=0;pc:=0;
                 if pr<>pr1 then inc(pidtv) else inc(h)
                 end;
               {else}
      if pr='' then begin   {пеpевipка на повтоpи по дiапазону}
           reset(f3);
            while not eof(f3) do begin
             while not eoln(f3) do begin
              read(f3,cp);read(f3,bp);read(f3,tur);
               if (cp=call[1]) and (bp=b[1]) and (tur=turn) then
                         begin
                          pq:=0;pc:=0;pr:=pr6;break;
                         end
             end;
             if pr=pr6 then begin
              close(f3); break;end;
             readln(f3);
            end;
             if pq<>0 then begin
               append(f3);
                write(f3,call[1],' ',b[1],' ');writeln(f3,turn);
                close(f3);
               end;
 
              {  for ii:=1 to m+1 do begin
                 if (calp[ii]=call[1]) and (bandp[ii]=b[1]) and (tur[ii]then begin
                  pq:=0;pc:=0;pr:=pr6;
                  break;end;
                 {else}
               {  if (calp[ii]=call[1]) and (bandp[ii]<>b[1]) then begin
                   pc:=0;break;end;
                end;
                 inc(m);calp[m]:=call[1];bandp[m]:=b[1];;{запис в масив}
                 if b[1]=18 then p18:=p18+pq;           {пiдpахунок очок}
                 if b[1]=35 then p35:=p35+pq;           {по дiапазонах}
                 if b[1]=70 then p70:=p70+pq;
              { end;}
            if pr='' then begin   {пеpевipка на повтоpи областей}
       for j:=1 to nn+1 do {begin}
        if cl[j]=call[1] then ob:=obl[j];{break;end;}
         for iii:=1 to mo+1 do begin
          if (oblp[iii]=ob) and (bando[iii]=b[1]) and (trp[iii]=turn) then
             begin
              po:=0;break;
             end;
         end;
             oblp[mo]:=ob;bando[mo]:=b[1];trp[mo]:=turn;inc(mo);
                 if b[1]=18 then o18:=o18+po;           {пiдpахунок очок}
                 if b[1]=35 then o35:=o35+po;           {по дiапазонах}
                 if b[1]=70 then o70:=o70+po;
       end;
      end;
      if (t[1]<pz) or (t[1]>kz) then begin
       pr:=pr7;pq:=0;inc(ptv);{write(pr);} end;
                 if pr<>'' then po:=0;
 
          if pr='' then begin   {пеpевipка на повтоpи кореспондентiв в турi}
           reset(f6); pc:=c;
            while not eof(f6) do begin
             while not eoln(f6) do begin
              read(f6,ccp);read(f6,turc);
               if (ccp=call[1]) and (turn=turc) then
                         begin
                          pc:=0;pr:=pr8;break;
                         end
             end;
             if pr=pr8 then begin
              close(f6); break;end;
             readln(f6);
            end;
             if pc<>0 then begin
               append(f6);
                write(f6,call[1],' ');writeln(f6,turn);
                close(f6);
                end;
                end;
 
 
                            tp18:=o18+p18;tp35:=o35+p35;tp70:=o70+p70;
                            pt:=pq+po+pc; tpt:=tpt+pt; tpq:=tpq+pq;tpo:=tpo+po;
                           if (((pr=pr0) or (pr=pr1)) or (pr=pr2)) then begin
                                                      b[2]:=0;
                                                      t[2]:=0;n1[2]:='       ';n2[2]:='       '
                                                        end;
{writeln (nam,b[1]:3,t[1]:5,n1[1],n2[1],' ',call[1],b[2]:3,t[2]:5,n1[2],n2[2],pq:2,pc:2,pt:3,' ',pr);}
 
  writeln (f2,nam,b[1]:3,t[1]:5,n1[1],n2[1],' ',call[1],b[2]:3,t[2]:5,n1[2],n2[2],pq:2,po:3,pc:2,pt:3,' ',pr);
          if bb then close(ff2);
         end;
    until eof(ff1);
    { pp:=((n-pidtv-ptv-h)*100) div (n-h);}    {пpоцент пiдтвеpдження}
      pp:=(n-pidtv-h)*100/(n-h);
    {writeln(ff,nam,n:5,tpt:5,pp:8:2,p18:5,p35:5,p70:5,tpq:5,o18:5,o35:5,o70:5,tpo:5);}
writeln(ff,nam,n:5,tpt:5,pp:8:2,tp18:5,tp35:5,tp70:5,p18:5,p35:5,p70:5,tpq:5,o18:5,o35:5,o70:5,tpo:5);
     gotoxy(15,18);writeln(pp:8:2);
     close (ff1);close(f2);
    until eof(f);
   close (f);close(ff);{close(f3);close(f4);close(f5)}
END.

             if pq<>0 then
               begin
                 append(f3);
                 write(f3,call[1],' ',b[1],' ');writeln(f3,turn);
                 close(f3);
               end;

             if pr=pr6 then begin
              close(f3); break;end;
             readln(f3);
            end;