Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр (операции деления и нахождения остатка от деления не использовать) — Pascal(Паскаль)

Program Number3;
Uses Crt;
Var
  i:word;
  Stri:string[3];
 
BEGIN
  ClrScr;
  for i:=100 to 987 do
    begin
      Str(i,Stri);
      if (Stri[1]<>Stri[2]) and (Stri[2]<>Stri[3]) and (Stri[1]<>Stri[3])
        then write(i:4);
    end;
  writeln;
  writeln('Press any key...');
  repeat
  until KeyPressed
END.