Прямий доступ у системі Турбо Паскаль

Приклад 1. Наведемо програму, яка задає вилучення непотрібних елементів файла, тобто його стискання.

Нехай у файлі Group.dat зберігається інформація про студентів групи: прізвище, ім’я та середній бал. З клавіатури задається прізвище студента, який вибув – запис про нього треба вилучити з файла.

За наступною програмою файл читається до кінця і в допоміжний файл копіюються ті записи, поле-прізвище яких відрізняється від заданого. Далі файли закриваються, і засобами модуля System старий файл просто знищується, а допоміжному присвоюється зовнішнє ім’ я старого.

program OutFromGroup;

type Student = record

Sname, Name : string[20];

Ball : real;

end;

var Fi, Fo : file of Student; { інформаційний та допоміжний файл }

FileName: string; { ім’ я файла }

procedure OpenFile;

begin

writeln('Задайте ім''я файла'); readln(FileName);

assign(Fi, FileName); reset(Fi);assign(Fo, 'NewFile.dat'); rewrite(Fo);

end;

procedure ClearFile; { Процедура стискання файла }

var St : Student; { Змінна для обміну }

StudtoOut : string[20];

begin

writeln('Задайте прізвище студента, що вилучається:');

readln(StudtoOut);

while not eof(Fi) do

begin

read(Fi, St);