[Pascal] Помогите проверить правильность. Задача: Требуется найти наибольшую сумму двух результатов измерений, выполненных с интервалом не менее, чем в 7 минут.

[BlooD_xD]

Задача: Требуется найти наибольшую сумму двух результатов измерений, выполненных с интервалом не менее, чем в 7 минут.
Код:

var i,j,n,maxsum,max,q:integer;
A:array[1..7] of integer;
begin
maxsum:=0;
max:=0;
readln(n);
for i:=1 to 7 do
  readln(A[i]);
for i:=8 to N do begin
  readln(q);
if q>max then
  max:=q;
if q+A[1]>maxSum then
  maxSum:=q+A[1];
for j:=1 to 6 do
  A[j]:=A[j+1];
  A[7]:=q;
end;
writeln(maxsum);
end.

На тестовом примере (N=10, 1,2,3..10) и нескольких других работает верно. Помогите проверить, может есть какие-то недочеты, а то прям кажется что что-то важное забыл. Заранее спасибо
P.S задачка из ЕГЭ