Определить, встречаются ли среди цифр данного числа повторяющиеся

function CountPos(str, substr: string): Integer;
begin
  Result := Trunc((Length(str) - Length(StringReplace(str, substr, '', [rfReplaceAll]))) / Length(substr));
end;
 
procedure ChechNumberForDublicats(number: integer);
var count, i, strLength: integer;
    fullStr: string;
begin
  fullStr := IntToStr(number);
  strLength := Length(fullStr);
  count := 0;
 
  for i := 1 to strLength do
  begin
    count := CountPos(fullStr, fullStr[i]);
 
    if count > 1 then
    begin
      MessageDlg('Yes', mtInformation, mbOKCancel, 0);
      Break;
    end;
  end;
 
  if count <= 1 then
  begin
    MessageDlg('No', mtInformation, mbOKCancel, 0);
  end;
 
end;

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
  var
    a:array[boolean] of string[3]=('no ','yes');
    n:longint;
    c:set of byte;
    b:boolean;
    t:byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
    write('n=');
    readln(n);
    b:=false;
    c:=[];
    while n>0 do begin
      t:=n mod 10;
      n:=n div 10;
      if t in c then begin
         b:=true;
         break;
      end else Include(c,t);
    end;
    writeln(a[b]);
    readln;
  end.

VAR
S:String;
i,n:Integer;
begin
S := IntToStr(n);
for i := length(s) downto 2 do begin
    if  (Pos(s[i],s) > 0 )
    and (Pos(s[i],s) < i )
    then result := true;
    end;

for i := length(s) downto 2 do 
    if  Pos(s[i],s)<i then result := true;