Посчитать наибольшее значение в непустом файле целых чисел (file of integer). Дописать найденное значение в конец файла. Процедура принимает в качестве параметра имя файла Name PROCEDURE ADD(NAME:STRING);