Дано натуральное четырехзначное число n.определите все ли цифры в числе различны! завтра сдавать

Var 
  n: integer;
  c: set of integer;
  b: boolean;
begin
  readln(n);
  b := true;
  while (n <> 0) and b do begin
    b := b and (not ((n mod 10) in c));
    c := c + [n mod 10];
    n := n div 10;
  end;
  
  if b then writeln('различны')
  else writeln ('нет');
end.