lập trình pascal :tìm số lớn nhất trong sâu và số chữ số của sâu lớn đó

code áp dụng cho xâu là số, nếu có cả chữ thì bảo để mình sửa

code:

var i,d: integer;
    s: string;
    x: char;
begin
    readln(s);
    x:=s[1];
    for i:=2 to length(s) do if s[i]>x then x:=s[i];
    d:=0;
    for i:=1 to length(s) do if s[i]=x then d:=d+1;
    writeln(x);
    write(d);
end.

program Hoidap247;
 
var
  s: string;
  maxi, dem, i, tam: integer;
begin
  readln(s);
  maxi := -1;
  dem := 0;
  for i := 1 to Length(s) do
  begin
    if (s[i] >= '0') and (s[i] <= '9') then
    begin
      tam := Ord(s[i]) - Ord('0');
      if tam > maxi then
      begin
        maxi := tam;
        dem := 1;
      end
      else if tam = maxi then
      begin
        dem := dem + 1;
      end;
    end;
  end;
  writeln(maxi);
  writeln( dem);
  readln;
end.