Ошибка, файл не открыт для ввода

Procedure InpData(Var Group:Groups; Var N:TGroup);
Var
   I:Integer;
   FF,GG,PP,NN,RR:Text;
Begin
   ClrScr;
   Assign(FF,'FFF.TXT');
   Assign(GG,'GGG.TXT');
   Assign(PP,'PPP.TXT');
   Assign(NN,'NNN.TXT');
   Assign(RR,'RRR.TXT');
 
   Reset(FF);
   Reset(GG);
   Reset(PP);
   Reset(NN);
   Reset(RR);
 
   Read(NN, N);
 
   I := 0;
   While Not EoF(FF) Do {на этой строке выскакивает ошибка №104 (файл не открыт для входа)}
   Begin
     Read(FF, Group[I].Familiya);
     WriteLn(Group[I].Familiya);
     Inc(I);
   End;
   ReadLn;
End;

rewrite({файловая переменная});

write({файловая переменная},{что писать});

Program Stud;
Uses
    Crt;
Type
    Studenti = Record
      Familiya:String[40];
      Rost:Byte;
      Gorod:String[40];
      Pol:String[1];
    End;
 
    TGroup = 1..20;
    Groups = Array [TGroup] Of Studenti;
 
Var
   MyGroup:Groups;
   MyGirls:Groups;
   MyBoys:Groups;
   MyN,MyNG,MyNB:TGroup;

I := 0;
   While Not EoF(FF) Do {на этой строке выскакивает ошибка №104 (файл не открыт для входа)}
   Begin
     ReadLn(FF, Group[I].Familiya);
     WriteLn(Group[I].Familiya);
     Inc(I);
   End;