Создать файл студент. Из файла студент занесите в отдельный файл записи об отличниках

uses
  crt;
const
  nmax=20;
  m=5;
type
  uch=record
    fio:string[15];
    ocn:array[1..m] of integer;
  end;
var
  gr:array[1..nmax] of uch;
  n,i,j,k,q:byte;
  f,g:file of uch;
begin
  assign(f,'stud.dat');
  rewrite(f);
  write('Количество учащихся n=');
  readln(n);
  writeln('Введите данные о ',n,' студентах:');
  for i:=1 to n do
    begin
      writeln('Студент ',i);
      write(' Фамилия И.О.: ');read(gr[i].fio);
      writeln(' Введите ',m,' осенок:');
      for j:=1 to m do
        begin
          repeat
            write(' осенка ',j,': '); readln(gr[i].ocn[j]);
          until gr[i].ocn[j] in [2..5];
    end;
    write(f,gr[i]);
  end;
  close(f);
 
  clrscr;
  i:=1;
  assign(g,'stud5.dat');
  rewrite(g);
  reset(f);
  while not eof(f) do
    begin
      read(f,gr[i]);
      // отладка
 {     write(gr[i].fio,' ');
      for j:=1 to m do
        write(gr[i].ocn[j]);
      writeln;}
      inc(i);
    end;
  close(f);
 
  writeln('Список отличников');
  q:=0;
  for i:=1 to n do
    begin
      k:=0;
      for j:=1 to m do
        if gr[i].ocn[j]=5 then
          k:=k+1;
      if k=m then
        begin
          q:=1;
          writeln(gr[i].fio);
          write(g,gr[i]);
        end;
    end;
  if q=0 then
    writeln('Отличников нет!');
  close(g);
  readln;
end.