Верно ли, что введённое число содержит по крайней мере две одинаковых цифры

program similar;
var a,c,d,c1,c2,c3,d1,d2,d3,z:integer;
begin
readln(a);
z:=0;
  if (a>0) and (a<=99) then
  c:=a mod 10; d:=a div 10;
    if c=d
    then z:=1;
   
   if (a>=100) and (a<=999) then
  c:=a mod 10; d:=a div 10;
  c1:=d mod 10; d1:=d div 10;
   
   if
      (c=c1) or (c=d1) or
      (d1=c1)
   
    then z:=2;
   
     if (a>=1000) and (a<=9999) then
  c:=a mod 10; d:=a div 10;
  c1:=d mod 10; d1:=d div 10;
  c2:=d1 mod 10; d2:=d1 div 10;
 
 
   if
      (c=c1) or (c1=c2) or (c1=d2) or (c=c2) or (c=d2) or
      (c2=d2)
 
   then z:=3;
 
    if (a>=10000) and (a<=99999) then
  c:=a mod 10; d:=a div 10;
  c1:=d mod 10; d1:=d div 10;
  c2:=d1 mod 10; d2:=d1 div 10;
  c3:=d2 mod 10;  d3:=d2 div 10;
 
 
   
     if (c=c1) or (c=c2) or (c=c3) or (c=d3) or
        (c1=c2) or (c1=c3) or (c1=d3) or
        (c2=c3) or (c2=d3) or
        (c3=d3)
    then z:=4;
 
   
  if (z=1) or (z=2) or (z=3) or (z=4) then writeln ('YES') else writeln ('NO');
end.

uses crt;
var
s:string;
i,j,x:integer;
begin
  clrscr;
  x:=0;
  writeln('Chislo:');
  readln(s);
  for i:=1 to length(s) do
    for j:=1 to length(s) do
      if (s[i]=s[j]) and (i<>j) then
        x:=x+1;
  if x>0 then writeln('YES') else writeln('NO');
  readln;
end.

uses crt;
var
s:string;
i,j,x:integer;
begin
  clrscr;
  x:=0; //счётчик повторяющихся цифр
  writeln('Chislo:');
  readln(s); //вводим число
  for i:=1 to length(s) do // берём цифру для проверки
    for j:=1 to length(s) do // цикл для сравнения выбранной цифры с остальными цифрами числа
      if (s[i]=s[j]) and (i<>j) then //если цифры равны и их индексы различны (если не проверяет само себя) то
        x:=x+1;//фиксируем совпадение
  if x>0 then writeln('YES') else writeln('NO');//если совпадения были, то выводим ДА, иначе НЕТ
  readln;
end.

  for i:=1 to length(s) do
    for j:=1 to length(s) do

var
  n: array ['0'..'9'] of Integer;
  c: Char;
  b: Boolean;
...
  for i:=1 to Length(s) do if s[i] in ['0'..'9'] then Inc(n[s[i]]);
  b:=False; for c:='0' to '9' do b:=b or (n[c]>1);
  if b then WriteLn('YES') else WriteLn('NO');

var
  p, q: set of '0'..'9';
...
  for i:=1 to Length(s) do
    if s[i] in p then Include(q,s[i]) else Include[p,s[i]];
  if p*q<>[] then WriteLn('YES') else WriteLn('NO');

var
  n: array [0..9] of Integer;
  p, q: set of 0..9;
...
  repeat
    d:=a mod 10; a:=a div 10;
    // используем d вместо s[i]
  until a=0;
...