Программа падает после ввода данных

program fanil4;
Type
 INFO=record
                naz_ul:string[10];
                nom_ap:1..100;
               gr_rab:1..7;
             end;
Var
   f:file of INFO;
   fa:INFO;
   i,n:byte;
   Bydn,BbIx:real;
     naz_ul:string[10];
                nom_ap:1..100;
               gr_rab:1..7;
 
Begin
     Assign(f,'c:\tp\sved.dat');
     rewrite(f);
     write('VVedite 4uclo aptek');
     readln(n);
     for i:=1 to n do begin
         write('naz_ul: ');
         READLN(fa.naz_ul);
         write('nom_ap:');
         readln(fa.nom_ap);
         write('gr_rab:');
         readln(fa.gr_rab);
 
 
     end;
     close(f);
     assign(f,'c:\tp\sved.dat');
     reset(f);
      bydn:=0;bbix:=0;
     while not eof(f) do begin
     bydn:=123;
     bbix:=67;
     if gr_rab=bbix then writeln(naz_ul)
     else writeln('Takix net');
     end;
 end.

program fanil4;
Type
INFO=record
naz_ul:string[10];
nom_ap:1..100;
gr_rab:1..7;
end;
Var
f:file of INFO;
fa:INFO;
i,n:byte;
Bydn,BbIx:real;
naz_ul:string[10];
nom_ap:1..100;
gr_rab:1..7;
 
Begin
Assign(f,'c:\tp\sved.dat');
rewrite(f);
write('VVedite 4uclo aptek');
readln(n);
for i:=1 to n do begin
write('naz_ul: ');
READLN(fa.naz_ul);
write('nom_ap:');
readln(fa.nom_ap);
write('gr_rab:');
readln(fa.gr_rab);
 
 
end;
close(f);
assign(f,'c:\tp\sved.dat');
reset(f);
bydn:=0;bbix:=0;
while not eof(f) do begin
bydn:=123;
bbix:=67;
if gr_rab=bbix then writeln(naz_ul)
else writeln('Takix net');
end;
readln;
end

Program apteka;
const n=3;
type
apt = record
ylica,nomer,rejim:string;
end;
var f:text;
gruppa:array[1..3] of apt;
i:integer;
uch:apt;
begin
assign(f,'file1.txt'); {указать путь}
reset(f);
for i:=1 to n do begin
readln (f,gruppa[i].ylica);
readln (f,gruppa[i].nomer);
readln (f,gruppa[i].rejim);
end;
close (f);
assign(f,'result.txt');
rewrite(f);
for i:=1 to n do begin
if gruppa[i].rejim='kruglosyto4no' then begin
writeln(f,gruppa[i].ylica);
writeln(f,gruppa[i].nomer);
end;
end;
close(f);
readln;
end.