Дано:
fori:=1to40do

При первом выполнении тела цикла
i=

i = 1

Так как при объявления цикла инициализируется переменная i и ей назначается начальное значение (в данном случае 1) и после начинается цикл, после каждой итерации +1 к переменной i.