Натуральное число вводится с клавиатуры найти разность между мах и мин цыфрой этого числа

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var s:=ReadlnString('Введите натуральное число:');
  var s1:=s.TakeWhile(x->x in ['0'..'9']);
  Write('Принято число: '); s1.Println('');
  Writeln('Искомая разность: ',StrToInt(s1.Max)-StrToInt(s1.Min))
end.

Тестовое решение:
Введите натуральное число: 346235853i34535
Принято число: 346235853
Искомая разность: 6