В одну строку в принципе писать нежелательно
Но если очень хочется то хотя бы i:=0; на новую перенеси))
хм, а тогда зачем end вообще, когда можно сделать как в пайтоне через отступы? do-end, then-end - это по сути скобки, но можно и без них тогда обойтись.