Процедуры при работе с типизированными файлами

Read(F,<список ввода>) - чтение данных из файла с занесением информации в переменные списка ввода. Все переменные должны быть одного типа, совпадающего с типом файла.

Seek(F,Num) - поиск записи с номером Num.

Truncate(F) - удаление части файла от текущей записи до конца.

Write(F,<список вывода>) - вывод данных в файл. Все элементы списка должны иметь тип, совпадающий с типом файла.

Функции при работе с типизированными файлами

FilePos(F) - возвращает целочисленный номер текущей записи файла. Нумерация начинается с нуля.

FileSize(F) - возвращает целочисленный текущий размер файла, но не в байтах, а в записях.

Пример работы с типизированными файлами.

Написать программу чтения из типизированного файла STUDENTS.BSF учетной информации о студентах (содержащей фамилию, номер курса, название группы и средний балл за последнюю сессию), создающую новый файл BAD_STUD.BSF со списком студентов - кандидатов на отчисление с первого курса (у которых средний балл ниже или равен 3.3), и исключающую из исходного списка документы о студентах, со средним баллом ниже 2.7.

В конце исходного файла дописать документы стандартной формы с фамилией "Вакансия" и нулевыми значениями остальных полей в количестве, равном числу исключенных студентов.

PROGRAM Example;

TYPE

Document = record {запись основного списка}

Name : string[20];

Kurs : 0..6;

Groop: string[4];

Ball : real;

End;

Kandidat = record {запись списка кандидатов на отчисление}

Name : string[20];

Groop: string[4];

End;

CONST

EMPTY : Document = {запись пустого документа - вакансии}

( Name : 'Вакансия';

Kurs : 1;

Groop: '0000';