[albo]

Не забываем перед циклом сделать i:=1;
а в цикле Inc(i);