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

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//cчитает количество цифр
else
begin
if CountCurrent> CountMax
then CountMax:= CountCurrent; CountCurrent:= 0;
end;
if CountCurrent> CountMax
then CountMax:= CountCurrent;
{до этой}
Writeln('максимальное количество цифр идущих подряд - ' ,CounTMax);
end.

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'] // если введеная строка входит в множество от "0".."9"
      then //тогда
      CountCurrent := CountCurrent + 1//cчитает количество цифр
    else // в обратном случае
    begin
      if CountCurrent > CountMax // тут мы определяем 
        then CountMax := CountCurrent; //самое максимально 
        CountCurrent := 0; //идущее колчесвто цмфр
    end; // сравнивая каждое по очередно
  if CountCurrent > CountMax // и выводим результат
    then CountMax := CountCurrent;
  {до этой}
  Writeln('максимальное количество цифр идущих подряд - ', CounTMax);
end.