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

Var
  A,B,C,D:integer;
Begin
  Write('Введите целое число: ');ReadLn(A);
  C := 0;
  While (A lt;gt; 0)and(C lt; 1) do
  Begin
    C := 0;
    B := A mod 10;
    A := A div 10;
    D := A;
    while D lt;gt; 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.