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

Формулировка задачи:

Добрый день. Помогите, пожалуйста, написать программу!! Дано натуральное четырехзначное число. Определить количество цифр с наименьшим значением в цифровой записи данного числа.

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

Листинг программы

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.

Объяснение кода листинга программы

Входное значение числа k считывается в цикле readln(k).
Далее, в цикле for i := 1 to 4 выполняется деление числа k на 10 и остаток от деления (цифра числа) сохраняется в переменную digit.
Если digit меньше текущего значения переменной min, то min обновляется на значение digit, а count увеличивается на единицу.
Если digit равно текущему значению min, то к count прибавляется единица.
После завершения цикла выводится на экран значение min и количество его вхождений count.