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

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.