Как сделать так, чтобы начальное максимальное значение было первым числом из файла

program task491;
const
   c = 100;
var 
   f, g: text;
   max, a: integer;
   n: integer;
   fname1, fname2: string;
begin
   Writeln('Дан файл f, компоненты которого являются целыми числами.');
   Writeln('Записать в файл g наибольшее значение первых ста компонент файла');
   Writeln('f, затем - следующих ста компонент и т.д.');
   Writeln('Если в последней группе окажется менее ста компонент,');
   Writeln('то последняя компонента файла g должна быть равна наибольшей из');
   Writeln('компонент файла f, образующих последнюю (неполную) группу.');
   Write('Введите имя файла с числами: '); Readln(fname1);
   Write('Введите имя файла с ответом: '); Readln(fname2);
   Assign(f, fname1); 
   Assign(g, fname2); 
   n := 0;
   max := 0;
   Writeln('Числа из файла: ');
   Rewrite(g); 
   Reset(f); 
   while not eof(f) do begin 
      n := n + 1; 
      Read(f, a); 
      Write(a, ' '); 
      if (a > max) or (n mod 100 = 1) then 
         max := a; 
      if n mod 100 = 0 then 
         Write(g,' ',max); 
  end;
  Writeln; 
  if n mod 100 > 0 then 
      Write(f2, ' ', max); 
  close(f); 
  close(g);
end.

## var a:=ReadAllText(ReadlnString('Введите имя файла с числами:')).ToIntegers;
a.Max.Println;