Код на массивы

[Sasandra]

Ребят, помогите пожалуйста! Что не так с этим колом? Пишет ошибку в 8-ой строчке?

Текст задачи: Найти номер и значение первого положительного элемента массива

program hello;
var abc: array [1..7] of integer;
i : integer;
begin
writeln ('Введите элементы массива');
for i:= 1 to 7 do
begin
readln (abc[i]);
end;
for i:= 1 to 7 do
begin
if (abc[i] > 0) then
begin
writeln (i, ' ', abc[i]);
break;
end;
end;
end.

[Arassir]

Запустил тут, все работает https://www.onlinegdb.com/online_pascal_compiler

Видимо проблема не в коде