Определить число из заданного множества с минимальной суммой цифр. Написать на Паскале.

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

function s(n:integer):integer;
begin
Result:=0;
n:=Abs(n); // защита от дурака
while n>0 do begin
    Result+=n mod 10;
    n:=n div 10
    end
end;

begin
var (x0,xn,h):=ReadInteger3('Начальное значение, конечное значение, шаг:');
var n:=x0;
var xm:=s(x0);
while x0<=xn do begin<br>    x0+=h;
    var sd:=s(x0);
    if sd    end;
Writeln('Число с минимальной суммой цифр: ',n)
end.

Пример:
Начальное значение, конечное значение, шаг: 78 132 3
Число с минимальной суммой цифр: 102

Определить число из заданного множества с минимальной суммой цифр. Написать ** Паскале.