Дан файл, содержащий набор сведений о студентах группы. Выполнить перевод студентов на следующий курс

{Дан файл, содержащий набор сведений о студентах группы. Не используя
нового файла, выполнить перевод студентов на следующий курс.}
uses
  dos;
const
  n = 5;
 
type
  stud = record
    isstudent: boolean;
    fio: string[128];
    kurs: byte;
  end;
 
var
  student: stud;
  f: file of stud;
  i: integer;
  s: string[128];
 
begin
  randomize;
  {создание файлв}
  assign(f, 'student.dat');
  rewrite(f);
  for i := 1 to n do
  begin
    with student do
    begin
      isstudent := true;
      str(i, s);
      fio := 'Студент' + s;
      kurs := random(5) + 1;
    end;
    write(f, student);
  end;
  close(f);
 
  {вывод данных из файла}
  writeln('вывод данных из файла:');
  reset(f);
  while not eof(f) do
  begin
    read(f, student);
    with student do
    begin
      write(fio:2);
      writeln(kurs:2);
    end;
  end;
  close(f);
 
  {обработка данных в файле}
  reset(f);
  i:=0;
  while i<filesize(f) do
  begin
    seek(f,i);
    read(f, student);
    with student do
    begin
      kurs := kurs + 1;
      if kurs > 5 then
        isstudent := false; {выпустился}
    end;
    seek(f,i);
    write(f,student);
    inc(i);
  end;
  close(f);
 
  writeln('вывод измененных данных из файла:');
  {вывод измененных данных из файла}
  reset(f);
  while not eof(f) do
  begin
    read(f, student);
    if student.isstudent then
    begin
      with student do
      begin
        write(fio:2);
        writeln(kurs:2);
      end;
    end;
  end;
  close(f);
  readln;
end.