Типизированные файлы

file of integer;
f1: file of real;
f3: file of string[10];
При работе с типизированным файлом можно сначала определить тип данных, а затем определить файл:
type massiv=array[1..5] of integer;
var f : file of massiv;
В типизированном файле можно использовать любой тип кроме файлового.

использование прямого доступа следует помнить, что элементы файла всегда нумеруются, начиная с нуля!
Чтение из типизированного файла осуществляется только процедурой Read, а запись-Write
Read(файловая переменная, список переменных);
Write(файловая переменная, список переменных);

EOF(f)=true, то выполнение процедуры Read приводит к ошибке.
При записи в файл, указатель перемещается на следующий элемент.
При достижении конца файла-файл расширяется

указатель текущей позиции

При считывании в каждую переменную из списка переменных указатель текущей позиции в файле перемещается на следующий элемент.

позиции, усекаются и она становится его концом EOF(f)=true;

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

в режиме append.

Недостатки типизированных файлов:

Нельзя создать или просмотреть в текстовом редакторе.
В него нельзя дописывать данные в режиме append.

целых чисел, выводит этот файл на экран компьютера. Затем сортирует элементы файла и выводит на экран уже отсортированный файл.

i, j : integer;
begin
{$I-}
Clrscr;
assign (f, 'sort_dat.pas');
{$I+} { Создаем файл случайных чисел}
Rewrite ( f );
Randomize;
J :=random( 100 ); { количество элементов файла }
For i:=1 to j do
begin
x:=random(100);
write( f, x );
End;
close ( f );
writeln ('исходный файл');
reset ( f );
for i:=1 to fileSize ( f ) do
begin
read ( f, x );
write ( x:4 );
end;

writeln;
close ( f ); { сортировка }
reset ( f );
for I :=fileSize(f)-1 downto 1 do
{ всплывание очередного максимального элемента на 1-ую позицию}
for j:=0 to I -1 do
begin
seek ( f, j );
Read (f, x, y);
if x>y then
begin
seek(f, j);
write ( f, y, x );
end;
end;
close ( f );
reset ( f );
writeln ('отсортированный файл');
for i:=1 to fileSize ( f ) do
begin
read( f, x );
write ( x:4 );
end;
readln;
close ( f );
end.