Описать функцию, которая возвращает сумму наименьших цифр входящих в запись числа типа Longint - Free Pascal

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

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

Решение задачи: «Описать функцию, которая возвращает сумму наименьших цифр входящих в запись числа типа Longint»

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

var
  n: Longint;
  m, d, s: Integer;
begin
  Write('Введите число: '); ReadLn(n);
  m:=n mod 10;
  while n>0 do begin
    d:=n mod 10; n:=n div 10;
    if m=d then Inc(s,d)
    else if m>d then begin
      m:=d; s:=d;
    end;
  end;
  WriteLn('Сумма наименьших цифр: ', s);
end.

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

Объявлены переменные: n, m, d, s типа Longint, Integer, Integer.
Выводится сообщение «Введите число: » и считывается число типа Longint в переменную n.
Вычисляется первая цифра числа n (м) путем взятия остатка от деления на 10.
Запускается цикл while, который выполняется до тех пор, пока n больше нуля.
В каждой итерации цикла вычисляется следующая цифра числа n (d) путем взятия остатка от деления на 10.
Если m равно d, то к переменной s прибавляется d.
Если m больше d, то сбрасываются переменные m и s равными d.
После окончания цикла выводится сообщение «Сумма наименьших цифр: » и выводится сумма наименьших цифр (s).