РЕБЯТА, СРОЧНО!!! Помогите пожалуйста решить задачу(надо на делфи), если можно ,

Данная функция подходит для подсчета суммы цифр хоть какого неотрицательного числа, так что проверку на неотрицательность и пятизначность необходимо проводить перед вызовом.

function SumNumbers(number : integer) : integer;
begin
  Result := 0;

  while number lt; 0 do // Проходит по всем разрядам числа, начиная с единиц
  begin
    Result := Result + number mod 10;
    number := number div 10;
  end;
end;