Найти наибольшее значение суммы между pядом стоящими элементами

Program asd;
Uses crt;
Type
  Mtr=array [1..50] of integer;
  
Procedure GetMas(Var A:Mtr; N:integer);
Var i:integer;
begin
    for i:=1 to N do
    begin
      Write('A[',i,']= ');
      Read(A[i]);
    end;
end;
 
Function GetSum(A:Mtr; N:integer):Integer;
Var i,s,max:integer;
begin
   max:=A[1]+A[2];
   s:=1;
   for i:=1 to N-1 do
     if max < A[i]+A[i+1] then
     begin
       max:=A[i]+A[i+1];
       s:=i;
     end;
   WriteLn;
   WriteLn('Íàèáîëüøåå çíà÷åíèå ñóììû åñòü ìåæäó ',s,' è ',s+1,' ýëåìåíòàìè ');
  Result:=Max;
end;
 
Procedure SHowMas(A:Mtr; N:integer);
Var i:integer;
begin
  for i:=1 to N do
    Write(A[i]:5,' ');
end;
 
Var N,Otv:integer;
    X:Mtr;
Begin
   repeat
     Write('Ââåäèòå N ');
     ReadLn(N);
   until N > 1;
   GetMas(X,N);
   WriteLn('Ðÿä: ');
   ShowMas(X,N);
   Otv:=GetSum(X,N);
   WriteLn('Îòâåò : ',Otv);
end.

uses crt;
var a: array[1..10] of integer;
    b: array[1..9] of integer;
    i,z: byte;
    max: integer;
begin
write('Исходный массив: ');
for i:=1 to 10 do begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
max:=b[1];
for i:=2 to 10 do begin
b[i-1]:=a[i]+a[i-1];
if b[i-1]>max then begin
max:=b[i-1];
z:=i-1;
end;
end;
writeln;
write('Ответ: ',z,'; ',z+1,'.');
end.