Ввести натуральное число и определить, какие цифры встречаются несколько раз. пример: введите число > = 0: 2323 повторяются: 2, 3

Var
  a, c : integer;
  con, rep : array [0..9] of boolean;
begin
  read (a);
  while a > 0 do
  begin
    c := a mod 10;
    a := a div 10;
    if not con[c] then con[c] := true
      else rep[c] := true;
  end;
  for c := 0 to 9 do
    if rep[c] then write (c, ' ');
end.