Подскажите пожалуйста!
Как лучше решить эту задачку: с массивами или можно как-то попроще?
Задача: дан файл F типа Fint (type Fint: fyle of Integer), описать процедуру Max(F), которая находит max элемент в нем, а затем отсекает ту часть файла, которая следует за max.

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

Жестоко

До этого момента - все правильно. Все, что нужно сделать далее:

Truncate(f)

;) И никаких переписываний (и переименований файлов)...

нет, ты не прочель условие, емунадо наоборот усечь не конец а начало

а, блин да, это я ошибся.
Тогда Truncate и все

да, да, понял уже я читал быстро и подумал что надо после.
А то слишком просто выходит.
Олег.