while (s1[ii]<>'~') and (ii<=length(s1)) do begin k:=k+s1[ii];ii:=ii+1;end;
for len:=3 to length(s1) do k:=k+s1[len];
Уважаемые граждане фобумяне, может кто обьяснит мне кое-что.
Есть цикл while, в котором выходит ошибка range check error.
Есть цикл for, в котором не выходит эта ошибка.
Примерно сукть понимаю, но не до конца: где же именно неправильный диапазон?