другого файлу для запису}
{Запит на значення ключового поля}
{Вибір значення перечислимого типу в залежності від обраного користувачем типу} vibor_tipa of
: z: = cvet;
: z: = gherno_bel;
: z: = perenosn;;
{Ще не досягнуто кінець файлу, пошук} not eof (file1) do
{Читання одного запису} (File1, TVzap);
{Якщо вміст ключового поля збігається з потрібним} TVzap.TipTelevizor = z then
{Запис запису в новий файл} (Filekl, TVzap);;
{Закриття файлів}
{Зміна імені файлу, з яким буде продовжуватися робота}: = filenamekluch;;
У процедуру з головної програми передається ім'я набору даних, з якого ми будемо записувати елементи. У процедурі описані наступні змінні:
Z - мінлива перечислимого типу для вибору ключового поля.
vibor_tipa - для виконання запиту про значення ключового поля.
Процедура запитує ім'я нового набору даних, в який будуть записані елементи з обраним значенням ключового поля. Потім просходит вибір потрібного значення ключового поля. Потім у циклі виконується счітиваеніе одного запису з першого файлу, і, якщо значення її ключового поля соответсвует потрібного, цей елемент записується в новий файл. Після досягнення кінця файлу, обидва файли закриваються. p align="justify"> Процедура зберігання всіх елементів в іншому НД:
Sohr_v_nov;
{Запит ключового поля}
{Зв'язування файлової змінної з НД на диску}
{Відкриття файлу для читання}
{Запит імені другого НД}
{Зв'язування файлової змінної з другим НД на диску}
{Відкриття другого файлу}
{Перехід в кінець другого файлу} (Filenov, filesize (Filenov));
{Поки недосягнутого кінець файлу} not eof (file1) do
{Читання з першого файлу}
{Запис у другій файл};
{Закриття двох файлів}: = 1;;
Дана процедура забезпечує збереження всіх елементів поточного набору даних в іншому. У процедуру з головної програми передається ім'я набору даних, з якого буде проводитися збереження. Процедура запитує ім'я файлу, в який проводитиметься запис, встановлює покажчик в його кінці. Далі один запис читається з першого файлу і записується у другій. Коли досягається кінець першого файлу, цикл закінчується, і обидва файли закриваються. p align="justify"> 2 Перевірка роботи програми
2.1
