Help bài này ạ , ngôn ngữ pascal nha các anh pls

uses crt;
var s,s2,max:string;
i:integer;
begin
clrscr;
write('Xau ky tu la:');
readln(s);
max:='';
for i:=length(s) downto 1 do
 if s[i] in ['0'..'9'] then s2:=s[i]+s2
 else
 begin
  if length(max)<=length(s2) then
   max:=s2;
  s2:='';
 end;
writeln('So lan luen tiep nhieu nhat: ',length(max));
writeln('Day so lien tiep nhieu nhat: ',max);
readln
end.

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

uses crt;
const number = ['0'..'9'];
var s, tam : string ;
    n, i, vt, vtstr, max : longint ;
    a : array[1..1000] of string ;
    len : array[1..100] of longint ;
begin clrscr;
    write('Xau ky tu la: ');
    readln(s);
    s := ' ' + s + ' ';
    n := length(s);
    tam := ''; vt := 1 ;
    for i := 1 to n do 
         begin
        if s[i] in number then tam := tam + s[i]
        else if not(s[i] in number) then
             begin
            a[vt] := tam;
            tam := '';
            inc(vt);
             end 
         end ;
    for i := 1 to vt do len[i] := length(a[i]);
    max := len[vt]; vtstr := vt ;
    for i := vt downto 1 do 
        if (max <= len[i]) and (len[i]<>0)  then 
             begin
            max := len[i];
            vtstr := i ;
             end ;
    writeln('So lan lien tiep nhieu nhat: ',max);
    writeln('Day so lien tiep nhieu nhat: ',a[vtstr]);
    
    
end .