Подсчет одинаковых символов в слове

var w: string;
    m: set of char;
    i: byte;
    f: boolean;
begin
  m := [];
  f := false;
  write('Enter word: ');
  readln(w);
  for i := 1 to length(w) do
    begin
      if w[i] in m
        then begin
          f := true;
          break
        end;
      m := m + [w[i]];
    end;
  writeln(f);
  readln
end.

if f then writeln('Yes') else writeln('No');

var
 s: string;
begin
 write('Enter word: ');
 readln(s);
 while length(s)<>0 do
  begin
   s:=s+s[1];
   delete(s,1,1);
   if pos(s[length(s)],s) < length(s) then
    begin
     writeln('Yes');
     readln;
     halt;
    end else delete(s,length(s),1);
  end;
 writeln('No');
 readln;
end.

var s: string;
begin
  write('Enter word: ');
  readln(s);
  while (length(s) > 1) and (pos(s[1], copy(s, 2, length(s) - 1)) = 0) do delete(s, 1, 1);
  if length(s) > 1 then writeln('Yes') else writeln('No');
  readln
end.