Цифры в записи числа

Задача:

Код:

program dif_dig;
var x: longint;
    D: array[0..9] of boolean;
Begin
Write('Input x:');
Readln(x);
while (x <> 0) do begin
                  if D[x mod 10] = true then begin
                                          Writeln('Цифры повторяются!');
                                          Readln;
                                          Exit;
                                          end
                  else D[x mod 10]:= true;
                  x:= x div 10;
                  end;
Write('Все цифры различны!');
Readln;
End.