Ругается на неизвестное имя, при создании файла

Program rgr7;
 type stud=record
 fam:string[20];
 nam:string[20];
 god:integer;
 klass:string[10];
 end;
 studfile=file of stud;
 var
 f,h,l,q:studfile;
 a:array[0..30] of studfile;
 kl8,kl9,kl10,kl11,j,n,i,m,k:integer;
 g:string;
 b:stud;
 begin 
 kl8:=0;kl9:=0;kl10:=0;kl11:=0;
 k:=1;
m:=0;
 assign (f,'stud.int');//Воожу ученков
 assign(h,'studdan.int');
 rewrite(h);
 close(h);
  rewrite (f);
  write ('Vvedite kolichestvo elementov: ');
  readln (n);
  for i:=1 to n do
  with a do
  begin
   writeln (' Danye pro ',i,' uchenika');
   write (' Familiya: '); readln (fam);
   write (' Imay: '); readln (nam);
   write (' Klass: '); readln (klass);
   write (f,fam,' ');
   write (f,nam,' ');
   writeln (f,klass,' ');
  end;
 close (f);//Заканчиваю ввод
 assign(f,'stud.int');//Нахождение фамилий
 reset(f);
 for i:=0 to n-1 do
 for j:=i+1 to n do
 if a[i].fam=a[j].fam then
 begin
 assign(h,'studdan.int');
 append(h); 
 Writeln(h,'Однофамильцы');
 writeln(h,a[j].fam);
 close(h);
 end;
write('Файл stud.int обработан и результат записан в файл studdan.int');//Заканчивается
begin//КОличество учеников в классах
assign(f,'stud.int');
reset(f);
for i:=0 to n do
begin
if a[i].klass='8' then inc (kl8);
if a[i].klass='9' then inc (kl9);
if a[i].klass='10' then inc (kl10);
if a[i].klass='11' then inc (kl11);
end;
assign(l,'kol.int');
rewrite(l);
if kl8<>0 then writeln(l,'Количество учеников в 8 классе= ',kl8);
if kl9<>0 then writeln(l,'Количество учеников в 9 классе= ',kl9);
if kl10<>0 then writeln(l,'Количество учеников в 10 классе= ',kl10);
if kl11<>0 then writeln(l,'Количество учеников в 11 классе= ',kl11);
close(l);//Заканчивается количество
       begin
       for i:=0 to n-1 do
       for j:=i+1 to n do
        begin
        seek(f,a[i].klass);
        read(f,a[i].klass);
        seek(f,a[j].klass);
        read(f,a[j].klass);
        if a[i].klass>a[j].klass then begin
        g:=a[i].klass;
        a[i]:=a[j].klass;
        a[j]:=g;
        end;
       end;
       begin
       rewrite(q,'sort.int');
        write (f,fam,' ');
   write (f,nam,' ');
   writeln (f,klass,' ');
   close(q);
   end;
   end;
end;
close(q);
close(f); 
end.