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

var
    n: longint;
    digits: array[1..10] of byte;
    q_digits: byte;
    digit: byte;
    i: byte;
    flag: boolean;
begin
    write('Input number: ');
    readln(n);
    if n < 0 then
        n:= abs(n);
    q_digits:= 0;
    repeat
        digit:= n mod 10;
        flag:= false;
        for i:=1 to q_digits do
            if digit = digits[i] then begin
                flag:= true;
                break
            end;
        if flag = false then begin
            q_digits:= q_digits + 1;
            digits[q_digits]:= digit;
        end;
        n:= n div 10
    until n = 0;
    for i:=q_digits downto 1 do
        write(digits[i]:3);
readln
end.

var
    n: longint;
    digits: array[0..9] of byte;
    i: byte;
begin
    write('Input number: ');
    readln(n);
    if n < 0 then
        n:= abs(n);
    repeat
        inc(digits[n mod 10]);
        n=n div 10;
    until n = 0;
    for i:=0 to 9 do
        if digits[i]=1 then write(digits[i]:3);
readln
end.

 if digits[i]>0 then write(i:3);