Определить количество цифр с наименьшим значением в цифровой записи данного числа

var
  k, d, c, min, s, i, j: integer;a: array[1..4]of integer;
 
begin
  readln(k);
  d := 1000;
  
  for i := 1 to 4 do
  begin
    a[i] := k div d;
    k := k mod d;
    d := d div 10;
  end;
  
  for j := 1 to 3 do  
    for i := 1 to 4 do
      if (i < 4) and (a[i] > a[i + 1]) then 
      begin
        c := a[i];
        a[i] := a[i + 1];
        a[i + 1] := c; 
      end;
  
  min := a[1];
  
  for i := 1 to 4 do
    if a[i] = min then s := s + 1;
  
  writeln; writeln(s);  
end.

var
  k, d, c, min, s, i, j: integer;  f1, f2: text; a: array[1..4]of integer;
 
begin
  assign(f1, 'File1.txt');
  assign(f2, 'File2.txt');
  reset(f1);
  readln(f1, k);
  close(f1);
  d := 1000;
  
  for i := 1 to 4 do
  begin
    a[i] := k div d;
    k := k mod d;
    d := d div 10;
  end;
  
  for j := 1 to 3 do  
    for i := 1 to 4 do
      if (i < 4) and (a[i] > a[i + 1]) then 
      begin
        c := a[i];
        a[i] := a[i + 1];
        a[i + 1] := c; 
      end;
  
  min := a[1];
  
  for i := 1 to 4 do
    if a[i] = min then s := s + 1;
  rewrite(f2);
  writeln(f2, s);
  close(f2); 
end.

var
  i, k, digit, min, count : integer;
 
begin
  readln(k);
  
  min := 10; count := 0;
  for i := 1 to 4 do
  begin
    digit := k mod 10;
    k := k div 10;
    if digit < min then
    begin
      min := digit; count := 1;
    end
    else if min = digit then inc(count);
  end;
 
  writeln; writeln('Минимальная цифра: ', min, ' повторяется ', count, ' раз(а)');
end.