Типизовані файли

Типизовані файли призначені для збереження однотипних даних будь-якого типу крім файлового і такого, що базується на файловому.

Опис типізованої файлової змінної здійснюється так:

де file of- службові слова,

f- файлова змінна, яка вказує на файл, у якому можуть зберігатися дані тільки типу ТипДаних.

При роботі з типізованими файлами можна здійснювати як послідовний так і прямий доступ до даних файлу. Використовуючи прямий доступ, слід пам'ятати про те, що позиції даних у типизованому файлі завжди нумеруються, починаючи з нуля.

Процедури і функції для роботи з типизованими файлами

Читання даних із типизованого файлу виконується тільки за процедурою Read, а записування- тільки за процедурою Write. При цьому читати або записувати можна тільки значення змінної такого ж типу, як і тип даних типизованого файлу.

Процедура/Функція	Опис
Read(файлова змінна; список змінних)	Читати дані з файлу. Після читання даного до змінної, покажчик позиції буде вказувати на позицію наступного даного. Після читання останнього даного покажчик позиції буде вказувати на кінець файлу (при цьому Eof(f)= True). Якщо покажчик позиції вказує на кінець файлу, то виконання процедури Read призведе до виникнення помилки і припинення виконання програми.
Write(файлова змінна; список змінних або констант)	Записати значення змінних або констант до файлу. Якщо покажчик позиції вказує на позицію даного, то при записуванні дане файлу замінюється значенням змінної або константи і покажчик позиції буде вказувати на позицію наступного даного. Якщо покажчик позиції файлу вказує на кінець файлу (при цьому Eof(f)=True), то виконання процедури Write призведе до розширення файлу.
FilePos(файлова змінна): Longint;	Визначити значення покажчика позиції у файлі.
FileSize(файлова змінна)	Визначити розмір файлу (кількість даних у файлі, при рахуванні від одиниці).
Seek(файлова змінна; N: Longint)	Надати покажчику позиції у файлі значення змінної N (при рахуванні від нуля) - покажчик позиції буде вказувати на позицію даного з номером N+1.
Truncate(файлова змінна)	Вилучити з файлу всі дані, розміщені після даного, на позицію якого вказує покажчик позиції. Після вилучення даних покажчик позиції вказує на кінець файлу (при цьому Eof(f)= True).

Завдання