Напишите программу которая определяет верно ли что введенное число содержит по крайней мере две одинаковые

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; if (C = 1) then WriteLn('В данном числе есть одинаковые цифры') else WriteLn('В данном числе нет одинаковых цифр '); End.