{ I. Удалить из внешнего файла все записи, удовлетворяющие условию, заданному в варианте, и распечатать информацию, оставшуюся в файле.
   b) Без использования дополнительного файла. }

  Reset(applicantsDoc);
  while not Eof(applicantsDoc) do
  begin
    Read(applicantsDoc, person);
    if (
      (person.USEGrades.Maths = 5) and
      (person.USEGrades.RussianLanguage = 5) and
      (person.USEGrades.Informatics = 5) and
      (person.EntryExamsGrades.Maths = 5) and
      (person.EntryExamsGrades.Informatics = 5)) then
        begin
          pos := Filepos(applicantsDoc);
          for var i := pos to FileSize(applicantsDoc) - 1 do
          begin
            Seek(applicantsDoc, i);
            Read(applicantsDoc, person);
            Seek(applicantsDoc, Filepos(applicantsDoc) - 2);
            Write(applicantsDoc, person);
            Seek(applicantsDoc, Filepos(applicantsDoc) + 1);
          end;
          Seek(applicantsDoc, FileSize(applicantsDoc) - 1);
          Truncate(applicantsDoc);
          Seek(applicantsDoc, 0);
        end;
  end;
  Close(applicantsDoc);
  Writeln('============= Информация об отличниках была удалена ( один файл ) =============');
  Writeln();
  PrintFile(applicantsDoc); { моя процедура вывода }