{ прыгаем в конец (eof) }procedure gotoeof (f : file);
begin{ перемещаемся в начало }
seek (f, 0);
{ перемещаемся вперед на "x" количество байт,
в нашем случае это размер файла! }
seek (f, filesize(f));
end; {gotoeof}
Статья Переместиться в конец файла раздела Файловая система Файлы может быть полезна для разработчиков на Delphi и FreePascal.
