ПАСКАЛЬ: РОБОТА З ФАЙЛАМИ

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);

if St.SName <> StudtoOut then

write(Fo, St)

end;

close(Fi);

close(Fo);

{Виклики процедур модуля System }

Erase(Fi); {для знищення}

ReName(Fo, FileName); {та переіменування файла }

end;

begin

OpenFile;

ClearFile;