Найти наибольшую сумму, которая образованна двумя идущими подряд элементами

Program L;
uses crt;
   var f,g: text;
   a: array [1..100] of integer;
   i, n, max: integer;
   begin
   assign(f,'input.txt');
   assign(g,'output.txt');
   reset(f);
   rewrite(g);
   while not eof (f) do
   begin
   inc(n);
   read(f,a[n]);
   end;
   max:=a[1]+a[2];
   for i:=2 to n-1 do
        if (a[i]+a[i+1])>max then max:=a[i]+a[i+1];
   writeln ('Наибольшая сумма, образованная двумя идущими подряд элементами = ', max);
   writeln (g,'Наибольшая сумма, образованная двумя идущими подряд элементами = ', max);
   close(f);
   close(g);
   end.

unit modul;
interface
type mas=array [1..100] of integer;
procedure ReadFile(var f:text;var a:mas;var n:integer);
function Max(a:mas;n:integer):integer;
procedure WriteFile(var g:text;a:mas;n:integer);
implementation
procedure ReadFile(var f:text;var a:mas;var n:integer);
begin
 assign(f,'input.txt');
 reset(f);
 while not eof (f) do
  begin
  inc(n);
  read(f,a[n]);
  end;
 close(f);
end;
function Max(a:mas;n:integer):integer;
var i,mx:integer;
begin
 mx:=a[1]+a[2];
 for i:=2 to n-1 do
 if (a[i]+a[i+1])>mx then mx:=a[i]+a[i+1];
Max:=mx;
end;
procedure WriteFile(var g:text;a:mas;n:integer);
begin
assign(g,'output.txt');
rewrite(g);
writeln (g,'Наибольшая сумма, образованная двумя идущими подряд элементами = ',Max(a,n));
close(g);
write('Результат записан в файл output.txt')
end;
end.

uses crt,modul;
var f,g:text;
    a:mas;
    n:integer;
begin
ReadFile(f,a,n);
WriteFile(g,a,n);
end.