Что означает это строка if i mod 2<>0 then
Если число i кратно двум.
если число I не делиться на 2 тогда ...