Vivod_Tek;
{ Присвоєння виведеному номером номер поточного елемента}
numb: = n;
{ Зв'язування файлової змінної з НД на диску}
assign (File1, Filename);
{ Відкриття файлу для читання }
reset (File1);
{ Пошук потрібної запису}
seek (File1, numb-1);
{ Читання запису з файлу}
read (File1, TVzap);
{ Присвоєння змінній k значення залежно від значеніея змінної перечислимого типу}
case TVzap.tipTelevizor of
cvet: k: = 'Кольоровий';
gherno_bel: k: = 'Чорно-білий';
perenosn: k: = 'Переносний';
end;
{ Висновок шапки таблиці}
writeln (');
writeln ('? #? Назва? Розмір? Ср.стоімость? Тип?');
writeln (' { Висновок елемента}
write ('?', numb: 5, '?');
write (TVzap.nazvanie: 18, '?');
write (TVzap.razmer: 8, '?');
write (TVzap.sr_stoimist: 16:1, '?');
writeln (k, '?');
{ Висновок нижньої межі таблиці} (' );
{Закриття файлу} (file1);;
.
Лістинг модуля RabotaDR:
unit RabotaDR;
RabotaND;
{Процедура для переходу до друому НД} Perehod_Drug_ND (var Filename: string);
{Процедура створення нового НД з усіх елементів із заданим значенням ключі-вого поля} Sozdat_ND_kl (var Filename: string; var n: integer);
{Процедура зберігання всіх елементів в іншому НД} Sohr_v_nov (var Filename: string; var n: integer);
Perehod_Drug_ND; DifFilename: string;
{Висновок імені поточного набору даних} ('Ваш старий набір даних:', Filename);
{Запит на виведення нової адреси НД} ('Введіть назву нового НД'); (DifFilename);
{Заміна імені старого набору даних на ім'я нового набору}: = DifFilename;
...
