Форум: «ЕГЭ по информатике»

Добрый день. Заранее благодарю всех, кто решил помочь и уделил моему вопросу время.

Задание:

54) На вход программы подаются результаты измерений, выполняемых прибором с интервалом 1 минуту. Все данные – целые числа (возможно, отрицательные). Требуется найти наибольшую сумму двух результатов измерений, выполненных с интервалом не менее, чем в 7 минут.
Описание входных данных:
В первой строке вводится одно целое положительное число – количество измерений N, которое может быть очень велико. Гарантируется, что N > 7. Каждая из следующих N строк содержит по одному целому числу – результат очередного измерения.
Описание выходных данных:
Программа должна вывести одно число - наибольшую сумму двух результатов измерений, выполненных с интервалом не менее, чем в 7 минут.

Моё решение: (извиняюсь, что без пробелов. Код автоматически изменяется при отправке)

var
a: array[1..8] of integer;
N, i, j: integer;
max1, maxs: longint;
begin
readln(N);
for i := 1 to 7 do
readln(a [ i ] );
max1 := a[1]; maxs := ???;
for i := 8 to N do
begin
readln(a[8]);
if (a[1] > max1) then
max1 := a[1];
if (max1 + a[8] > maxs) then
maxs := max1 + a[8];
for j := 1 to 7 do
a[j] := a[j+1];
end;
writeln(maxs);
end.

// max1 - максимальное значение с левой стороны массива, maxs - максимальная сумма.

Мои вопросы:
1) Как правильно произвести инициализацию максимальных значений, если входными данными могут являться отрицательные числа?
2) Правильно ли в этом случае использовать вид "longint" вместо "integer" в данном примере (т.к. в условии не сказано, что входные данные будут меньше 10000 как во многих других примерах 27-х заданий)? Имеет ли вид данных какое-то отношение к требованию решить задачу наиболее эффективно по памяти?

Еще раз, благодарю всех за вашу помощь.

for i := 1 to 8 do readln(a[i ] );
max1 := a[1];maxs := a[1] + a[8];
for i := 9 to N do
begin
for j := 1 to 7 do a[j] := a[j + 1];
readln(a[8]);
if (a[1] > max1) then max1 := a[1];
if (max1 + a[8] > maxs) then maxs := max1 + a[8];
end;