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 đó

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.