помогите найти ошибку :3 (паскаль)

PROGRAM LAB14;
VAR
A:ARRAY[1..8] OF INTEGER;
J:INTEGER;
P:REAL;
BEGIN
FOR J:=1 TO 8 DO READ (A[J]);
P:=1;
FOR J:=1 TO 8 DO
IF A[J]<A[J-1] THEN;
P:=P+A[J];
WRITE('P=',P)
END.

Примечание:
сделал как сказали но всё равно ошибка
ошибка :0 - выход за границы диапазона изменения индекса 1..8 (program4.pas , строка10 )

Примечание:
таже ошибка
что и была
кстати вот сюда становится курсор после ошибки
FOR J:=1 TO 8 DO
IF A[J]<A[J-1] THEN
ну если это что либо сначит

Примечание:
если ставлю цикл с 2 и до 8 то сразу после старта программы ошибка

Примечание:
вот переделал и всё получилось всем спс
PROGRAM LAB14;
VAR
A:ARRAY[1..8] OF INTEGER;
J:INTEGER;
P:REAL;
BEGIN
FOR J:=1 TO 8 DO READ (A[J]);
P:=1;
FOR J:=1 TO 8 DO
IF A[J]<J THEN;
P:=P+A[J];
WRITE('P=',P);
END.

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.