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

procedure ADD(name:string; var max:integer);
begin
  var f:file of integer;
  Reset(f,name);
  max:=-MaxInt;
  var t:integer;
  while not f.Eof do begin
    Read(f,t);
    if t>max then max:=t
    end;
  f.Close
end;

begin
  var p:=ReadlnString('Имя файла (с путем при желании):');
  var max:integer;
  ADD(p,max);
  Writeln(max)
end.