Определение номера элемента

Функция FilePos(< имя файловой переменной >) возвращает номер элемента, на который «смотрит» файловый указатель.

Определение количества элементов в файле

Функция FileSize(< имя файловой переменной >) возвращает количество элементов в файле.

Удаление и переименование файлов

Erase(< имя файловой переменной >) процедура удаления файла.

Rename(< имя файловой переменной >,’< новое имя на диске >’) переименование файла.

Пример: В файле DAT1.DAT записаны целые числа. Вычислить сумму элементов файла и результат вместе с исходными данными записать в файл DAN2.DAT

Program WW;

Var f1,f2: file of integer;

s, n: integer;

Begin

Assign(f1,’DAT1.DAT’);

Reset(F1);

Assign(f2,’DAT2.DAT’);

Rewrite(f2);

s:=0;

While Not Eof(f1) do { проверка на конец файла}

Begin

read(f1,n); {чтение элемента из файла F1}

write(f2,n); { запись элемента в файл F2}

s:=s+n;

end;

write(f2,s); {запись суммы элементов в конец файла F2}

write(‘Результат находится в файле DAT2.DAT’);

Close(f1);

Close(f2);

End.