Var a, k, count: integer;
begin
readln(a);
k:=a mod 10;
a:=a div 10;
count:=1;
while(a0) do begin
  if(a mod 10 = k) then count+=1;
  if(a mod 10 < k) then begin
    k:=a mod 10;
    count:=1;
    end;
  a:=a div 10;
  end;
writeln(count);
end.

Var
  s:string;
  c:char;
  i,k:integer;
begin
  Write('Введите число: '); Readln(s);
  c:=s[1]; k:=1;
  for i:=2 to length(s) do
    if s[i]=c then Inc(k)
    else if s[i]  Writeln('Наименьшая цифра ',c,' встретилась ',k,' раз(а)')
end.

Тестовое решение:
Введите число: 3141592653589793
Наименьшая цифра 1 встретилась 2 раз(а)