Напишите программу которая определяет Верно ли что введенное число содержит по крайней мере две одинаковые цифры Возможно не стоящие рядом Паскаль ABC net

Var  A,B,C,D:integer;Begin  Write('Введите целое число: ');ReadLn(A);  C := 0;  While (A <> 0)and(C < 1) do  Begin    C := 0;    B := A mod 10;    A := A div 10;    D := A;    while D <> 0 do    begin      if D mod 10 = B then        C := 1;      D := D div 10;    end;  End;  if (C = 1) then WriteLn('В данном числе есть одинаковые цифры')  else WriteLn('В данном числе нет одинаковых цифр ');End.