Символьный тип данных: найти наибольшее количество цифр, идущих в тексте подряд

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var a,chislo,max:integer;
s:string;
 
begin
  { TODO -oUser -cConsole Main : Insert code here }
chislo:=0;
max:=0;
a:=1;
writeln('введите строку');
readln(s);
while s[a]<>'' do begin
   if s[a] in ['0','1','2','3','4','5','6','7','8','9'] then begin
    chislo:=chislo+1;
       if (chislo>max) then
        max:=chislo;
   end else
   if (not(s[a] in ['0','1','2','3','4','5','6','7','8','9']))and(chislo>max) then begin
        max:=chislo;
        chislo:=0;
   end;
a:=a+1;
end;
writeln(max);
readln;
end.

uses
  SysUtils;
var
s: String;
a,chislo,max: Integer;
 
begin
  { TODO -oUser -cConsole Main : Insert code here }
a:=1;
max:=0;
chislo:=0;
 
writeln('введите строку');
readln(s);
 while s[a]<>'' do
begin
  if s[a] in ['0'..'9'] then //если буква относится к числу
  begin
    inc(chislo); // увеличиваем значение на 1.  Inc(chislo) - это тоже самое, что chislo:=chislo+1 /
    if chislo>max then max:=chislo; // если в какой то момент chislo превысит max то max станет этим числом
  end
  else chislo:=0; //как только попадется не число, то сбрасываем счетчик чисел, и готовимся к следующим подсчетам  чисел
Inc(a);//следующая буква
end;
 
writeln(max);
readln;
end.

program Project1;
{$APPTYPE CONSOLE}
 
var x:char; y,m:word;
 
begin
y:=0;
m:=0;
writeln('BBEDuTE 4ENU6yT6 --> ');
while x<>'.' do
begin
read(x);
if x in['0'..'9']then inc(y)
 else begin
 if y>m then m:=y;
 y:=0;
 end;
end;
writeln;
writeln('Naibolshee kolichestvo cifr --> ',m);
readln;
readln;
end.