Из файла читается строка, помещается в переменную help, строка содержит цифры, например, 010000. Задача моей пдпрограммы считывать только четные символы, то есть в результате считывания из переменной help в переменную gerc4, должно записатся число 100, но как я ни старался, подпрограмма почсему-то напрочь не хочет видеть последний ноль из числа 010000, поэтому в переменную gerc4 вместо 100 записывается 10. Помогите пожалуйста решить эту проблему. Код подпрограммы привожу: счетчик символов i = 1
Код
begin
while help[i]<>' ' do
begin
if prt=1 then
begin
gerc4:=gerc4+(help[i]);
i:=i+1;
prt:=prt-1;
end;
else i:=i+1;prt:=prt+1;
end;
Edit35.Text:=gerc4;
end;