Cho một xâu kí tự St có độ dài không quá 1000 kí tự chỉ bao gồm các kí tự viết thường thuộc [a..z] và [0..9]. Trên xâu các kí tự chữ số liền kề tạo thành một số, độ dài các kí tự chữ số liền kề nhau không quá 9 chữ số. Yêu cầu: In ra số lượng số có trong xâu và in ra số lớn nhất trong xâu (nếu có). Dữ liệu vào: Cho trong tệp văn bản XAU.INP gồm một dòng chứa xâu kí tự St Dữ liệu ra: Ghi vào tệp văn bản XAU.OUT theo cấu trúc sau: - Dòng 1: Ghi số d là số lượng số trong xâu St - Dòng 2: Ghi số q là số lớn nhất trong các số từ xâu St. (dữ liệu vào luôn đảm bảo có số trong xâu). Free pascal a!!

    const so = ['0'..'9'];
          fi = 'XAU.INP';
          fo = 'XAU.OUT'; 
    var s : string ;
        n, i, max, d, dso, lus : longint ;
        a : array[1..10000] of longint ;
        f1, f2 : text ;
begin
    assign(f1,fi); reset(f1);
    assign(f2,fo) ; rewrite(f2);
    readln(f1,s);
    d := 0 ;
    for i := 1 to length(s) do 
        if s[i] in so then 
             begin
            val(s[i],lus);
            inc(d);
            a[d] := lus ;
             end ;
    max := a[1];
    for i := 2 to d do 
        if max < a[i] then max := a[i];
    writeln(f2,max);
    writeln(f2,d);
    close(f1); close(f2);
    
     
end .