Организовать ввод трехзначного естественного числа с клавиатуры. Программа обязана

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программка не работает, обновите версию!

begin
  var n:=ReadInteger('Введите естественное трехзначное число:');
  var L:=new Listlt;integergt;;
  while ngt;0 do begin
    L.Add(n mod 10);
    n:=n div 10
    end;
  L.Sort;
  Writeln('Меньшая цифра в числе ',L.First,', наибольшая ',L.Last)
end.

Пример
Введите естественное трехзначное число: 634
Меньшая цифра в числе 3, наивеличайшая 6