Задан одномерный массив A=(7,5,4,6,3,2,1). Какое значение будет выведено в результате

Задан одномерный массив A=(7,5,4,6,3,2,1). Какое значение будет выведено в итоге исполненья программки:

var a:array[1..7] of integer;
i,j,k,c:integer;
begin
write('Введите семь частей массива');
for k:=1 to 7 do read(a[k]);
i:=3;
c:=0;
for k:=1 to 100 do
begin
j:=a[i];
a[i]:=i;
i:=j;
c:=c+i
end;
write(c);
end.

Помогите решить данную задачу. С виду просто, пробовал воплотить данный массив, но не вышло.