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

var a: array [1..1000] of integer;
       i, n, max: integer;
   begin
   writeln ('Vvedite kolichestvo elementov posledovatelnosti A');
   readln (n);
   for i:=1 to n do
   begin
        writeln ('Vvedite element posledovatelnosty');
        readln(a[i]);
   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 ('Naibolshaya summa obrazovannaya elementami = ', max);
   Readln;
   end.

library Project1;
 
uses
  SysUtils,
  Classes;
 
type
  TArr = Array of Integer;
 
{$R *.res}
 
function Get2Max(Arr: TArr; ASize: Integer): Integer;
var i: Integer;
    max: Integer;
begin
 
  max := Arr[0] + Arr[1];
  for i := 1 to Length(Arr) - 1 do
    if (Arr[i] + Arr[i + 1]) > max then
      max := Arr[i] + Arr[i + 1];
 
  Result := max;
end;
 
exports Get2Max;
 
begin
 
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
  TArr = Array of Integer;
 
function Get2Max(Arr: TArr; ASize: Integer): Integer; external 'Тут полный путь до DLLки';
var a: TArr;
    i: Integer;
begin
 
  Randomize;
  SetLength(a, 50);
 
  for i := 0 to Length(a) - 1 do
    begin
      a[i] := Random(10) + 1;
      Write(a[i], ' ');
    end;
  Writeln;
 
  Writeln(Get2Max(a, Length(a)));
  Readln;
end.