И у того и у другого ошибка - достаточно просто написать

$i<strlen($stroka)

счет длины начинается с единички