Множества, объясните как работает программа

[ilyas22]

var CountMax,CountCurrent,i,lng:byte;
s:String;
a:set of '0'..'9';
begin
cls;
writeln('введите строку');
readln(S);
countmax:= 0;
CountCurrent:= 0;
{непонятно с этой части}
for i:=1 to length(S) do
if s[i] in ['0'..'9']
then
CountCurrent:= CountCurrent + 1
else
begin
if CountCurrent> CountMax
then CountMax:= CountCurrent; CountCurrent:= 0;
end;
if CountCurrent> CountMax
then CountMax:= CountCurrent;
{до этой}
Writeln('максимальное количество цифр идущих подряд - ' ,CounTMax);
end.

[vovk]

var CountMax,CountCurrent,i,lng:byte;
s:String;
a:set of '0'..'9'; //непонятно зачем обьявляли
begin
cls;
writeln('введите строку');
readln(S);
countmax:= 0;
CountCurrent:= 0;
{непонятно с этой части}
for i:=1 to length(S) do// цикл от 1 до (количества символов в строке s)
if s[i] in ['0'..'9'] // если символ с порядковым номером i входит в ['0'..'9']ну то есть является цифрой
then // тогда
CountCurrent:= CountCurrent + 1 //добавляем 1 к переменной CountCurrent 
else //иначе 
begin//начало выполнения условия
if CountCurrent> CountMax //если переменная CountCurrent больше  переменной CountMax
then CountMax:= CountCurrent; CountCurrent:= 0; // тогда присваиваем переменной CountMax значение переменной CountCurrent и обнуляем CountCurrent
end;//конец выполнения условия
if CountCurrent> CountMax //тут тоже самое
then CountMax:= CountCurrent;//тут тоже самое
{до этой}
Writeln('максимальное количество цифр идущих подряд - ' ,CounTMax);
end.

если по простому то начинаем сверять с 1 символа, если символ цифра, то к счётчику добавляем 1 если не цифра, то сверяем с сохранённым ранее максимальным количеством, и если больше, то записываем если нет то не записываем, но всё равно счётчик обнуляем
ну а ещёраз сверяем с максимальным количеством после цикла, потому что строка могла закончится цифрой.

[Chudo4258]

var CountMax,CountCurrent,i,lng:byte;
s:String;
a:set of '0'..'9';
begin
cls;
writeln('введите строку');
readln(S);
countmax:= 0;
CountCurrent:= 0;
{непонятно с этой части}
for i:=1 to length(S) do// порходим по всем символам строки
if s[i] in ['0'..'9'] // если символ число
then
CountCurrent:= CountCurrent + 1 // то переменное CountCurrent присваиваем +1, т.е. здесь считаем кол-во подряд идущих символов.
else // если не число
begin
if CountCurrent> CountMax // тогда сверяем длину полученнай последовательности чисел с максимальной предыдущей, если текущая длина больше
then CountMax:= CountCurrent; CountCurrent:= 0;// то записываем ее в CountMax и обнуляем CountCurrent для последующего подщета длины подряд идущих символов 
end;
if CountCurrent> CountMax //
then CountMax:= CountCurrent; // а вот это вообще не понятно для чего.
//а нет, все правильно, поледний if нужен для того, если сторка будет заканчиваться числом, то он не будет всерятся с CountMax  в цикле программы.
{до этой}
Writeln('максимальное количество цифр идущих подряд - ' ,CounTMax);
end.

[vovk]

Сообщение от Chudo4258

if CountCurrent> CountMax //
then CountMax:= CountCurrent; // а вот это вообще не понятно 
end.

а если строка цифрой закончилась?

[ilyas22]

Спасибо парни, без вашей помощи не разобрался бы