Ввести натуральное число и определить, какие цифры встречаются несколько раз. С помощью repeat until

Var a : Integer;   s : Set of Byte;Begin  s:=[];  Readln(a);  Repeat   If (a mod 10) in s then Write(a mod 10:2) else Include(s,a mod 10);   a:=a div 10;  Until a=0;    Writeln;end.