Нахождение одинаковых значений элементов массива

var
  a, b, c, s: integer;

begin
  read(c);
  repeat 
    a := c mod 10;
    c := c div 10;
    s := c;
    while s > 0 do 
    begin
      b := s mod 10;
      s := s div 10;
      if (a = b) then begin
        writeln('yes');
        a := 77;
        break;
      end;
    end;
    if (a = 77) then break
  until (c = 0);
  if (a <> 77) then 
    writeln('no');
end.