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

Var
  n : set of Byte;
  i : Byte;
  k : Longint;
Begin
  n:=[];
  Readln(k);
  Repeat
    If (k mod 10) in n then Writeln(k mod 10) else Include(n,k mod 10);
    k:=k div 10;
  Until k=0;
end.

var
    x:integer;
    k0,k1, k2, k3, k4, k5, k6, k7, k8, k9: byte;
begin
       readln(x);
       repeat
            if x mod 10 =0 then k0:=k0+1;
            if x mod 10 =1 then k1:=k1+1;
            if x mod 10 =2 then k2:=k2+1;
            if x mod 10 =3 then k3:=k3+1;
            if x mod 10 =4 then k4:=k4+1;
            if x mod 10 =5 then k5:=k5+1;
            if x mod 10 =6 then k6:=k6+1;
            if x mod 10 =7 then k7:=k7+1;
            if x mod 10 =8 then k8:=k9+1;
            if x mod 10 =9 then k9:=k9+1;
            x:=x div 10
     until x=0;
     if (k0<2) and (k1<2) and (k2<2) and (k3<2) and (k4<2) and (k5<2) and
        (k6<2) and (k7<2) and (k8<2) and (k9<2) then writeln(' Повторов нет ')
        else begin
                     write(' Повторяются: ');
                     if k0>1 then write(0,' ');
                     if k1>1 then write(1,' ');
                     if k2>1 then write(2,' ');
                     if k3>1 then write(3,' ');
                     if k4>1 then write(4,' ');
                     if k5>1 then write(5,' ');
                     if k6>1 then write(6,' ');
                     if k7>1 then write(7,' ');
                     if k8>1 then write(8,' ');
                     if k9>1 then write(9,' ');
               end
end.