написал код, но правильно ли (массивы)

[mishammm]

Задачка:
есть массив n<=8 в котором есть хотя бы 1 отрицательное число !нужно посчиать сумму елементов массива до 1 отрицательного елемента!
Вот примерно как я думаю:
program laba7_2;

const
 n=8;
var
a:array[1..n] of integer;
i:integer;
s:real;
begin
writeln('Vvedi elementi massiva A');
begin
i:=1;
while (a[i]>=0) do begin
i:=i+1;
read(a[i]);
s:=s+A[i];
end;
end;
writeln('s=',s:0:4);
End.

[mishammm]

если я введу 3, 4, 5, 6, 7 и -1 считает 24 но должно посчитать до отрицаемого числа тоесть долдно выйти 25

[Mad_Cat]

a:array[0..n] of integer;
{.....}
i:=0;
a[i]:=0;
while (a[i]>=0) do begin
s:=s+A[i];
i:=i+1;
read(a[i]);
end;

[mishammm]

program laba;
const
 n=8;
var
a:array[1..n] of integer;
i:integer;
s:real;
begin
writeln('Vvedi elementi massiva A');
begin
i:=0;
a[i]:=0;
while (a[i]>=0) do begin
s:=s+A[i];
i:=i+1;
read(a[i]);
end;
end;
writeln('s=',s:0:4);
End.

Ошибка времени выполнения: Индекс находился вне границ массива. строка 12
a[i]:=0

[mishammm]

все извиняююсь все норм, в массиве не указал от 0..n ??