Проверить повторения элементов в строках — Pascal(Паскаль)

var
  s:string;
  i,j:integer;
begin
  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
      begin
        writeln('Yes');
        exit
      end;
  writeln('No')
end.