Задача, паскаль

Ввести целое число и определить верно ли что в его записи есть две одинаковые цифры

Var

N : Longint;

s : Set of Byte;

F : Boolean;

Begin

s:=[]; F:=False;

Readln (N);

While (N>0) and not F do

If not ((N mod 10) in s) then

Begin

Include (s, N mod 10);

N:=N div 10;

end else F:=True;

Writeln (F);

end.