Дан массив размера N. Найти два соседних элемента, сумма которых максимальна, и вывести эти элементы в порядке возраста

uses crt;
var
a: array[1..100] of integer;
i, n, k, sum: integer;
begin
clrscr;
writeln('Vvedite razmer massiva:');
readln(n);
writeln('Vvedite massiv:');
for i := 1 to n do
readln(a[ i ]);
sum := a[1] + a[2 ];
for i := 1 to n - 1 do
begin
if a[ i ] + a[ i + 1 ] > sum then
begin
sum := a[ i ] + a[ i + 1 ];
k := i;
end;
end;
writeln(a[k], ' and ', a[k + 1]);
readln;
end.