Составите программу вычисления количества трехзначных чисел, у которых цифры строго по возрастанию

Var
  i, j, c: integer;
 begin
  c := 0;
  for i := 100 to 999 do
    if(((strtoint(i.ToString[1])) < (strtoint(i.ToString[2])))
    and ((strtoint(i.ToString[2])) < (strtoint(i.ToString[3]
      then c := c + 1;
  write(c);
end.

Я так понимаю, что рассматривается ситуация, когда текстовая информация имеется, а ее надо как-то проанализировать.
Недостатки
 - сложно ставить пометки, мы привыкли делать пометки руками, и в электронном виде это все равно несколько неудобно.
 - самый большой недостаток, это то что нельзя выложить несколько листов и смотреть на них одновременно. Упираемся в размеры монитора и тд.
- усталость глаз от долговременной работы с монитором

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

Преимущества:
- возможность быстрого поиска нужной информации;
- возможность быстрой передачи информации по электронным сетям на большое расстояние;
- возможность структурирования текстовой информации;
- компактность хранения (относительно бумажных носителей);
- автоматическая обработка информации;
- возможность криптографической защиты информации.

Недостатки:
- необходимы специальные устройства (компьютеры);
- необходима электрическая энергия для работы спец. устройств;
- необходимы навыки работы с компьютерами.