var max,st:ansistring;
    i:word;
    fi,f2:text;
begin
    assign(f1,'XAUCON.INP');reset(f1);
    assign(f2,'XAUCON.OUT');rewrite(f2);
    max:='';
    readln(f1,st);
  {=======================  1.  =============================}
    for i:=1 to length(st) do
      if not(st[i] in ['0'..'9']) then st[i]:=' ';
  {=======================  2.  =============================}
    while pos('#32#32',st)<>0 do delete(st,pos(#32#32,st),1);
    if st[1]=' ' then delete(st,1,1);

  {=======================  3.  =============================}
    if st[length(st)]<>' ' then st:=st+' ';
    while pos(#32,st)<>0 do
       begin
           if copy(st,1,pos(' ',st)-1)>max then
              max:=copy(st,1,pos(' ',st)-1);
           delete(st,1,pos(' ',st));
       end;
  {=======================================================}
    writeln(f2,length(max));
    close(f1);close(f2);
end.
Ý tưởng:

1. Duyệt từ đầu đến cuối xâu: nếu nó không phải kí tự số: chuyển thành khoảng trắng

2. Chuẩn hóa xâu

3. Tách xâu - kiểm tra xâu đó có dài hơn xâu max hay không 
    Xóa phần xâu đã kiểm tra và kiểm tra tiếp

program bai_giai;
var f,g:text;
    st,s,t:ansistring;
    i:integer;
begin
    Assign(f,'XAUCON.INP');  reset(f);
    Assign(g,'XAUCON.OUT');  rewrite(g);
    readln(f,st);
    s:=''; t:='';
    for i:=1 to length(st) do
        if st[i] in ['0'..'9'] then t:=t+st[i]
        else
            begin
                if length(t)>length(s) then s:=t;
                t:='';
            end;
    if length(t)>length(s) then s:=t;
    write(g,length(s));
    close(f); close(g);
end.