begin
Reset (f);: = FileSize (f);
if n = 0 then ShowMessage ('Файл порожній')
else SelectNum (f, n, num, el)
then n = 1
then
CloseFile (f); (f);
end num = n-1
then
Seek (f, num); (f);
end
Seek (f, n-1); (f, el); (f, num); (f, el); (f, n-1); (f);
end;
ShowMessage ('Дані видалені');
end;
CloseFile (f);
end;
// вивід файлів із заданою специфікацією
procedure Task (var f: TFile);
var el: TCatalog; name: string; ok: Boolean; fout: TFile; s: string [3];
begin
Reset (f);
if Eof (f) then ShowMessage ('Файл порожній')
else InputFileName ('Введіть ім'я нового файлу-звіту', name, False)
then
Writeln ('Введіть шукану специфікацію');
Readln (s); (fout, name); (fout);
while not Eof (f) do
begin
read (f, el);
if el. special = s
then
write (fout, el);: = True;
end;;
CloseFile (fout);
if ok
then
ShowMessage ('Звіт сформований');
if InputQuery ('Надрукувати звіт?') then < span align = "justify"> PrintFile (fout);
end
ShowMessage ('Не знайдено жодного файл із заданою специфікацією');
end ShowMessage ('Перервано користувачем'); (f);
