Проверить, есть ли в данной строке одинаковые символы.

Var i,j,count: integer;
st:string;
begin
readln(st);
for i:= 1 to length(st) do 
for j:= i+1 to length(st) do 
if st[i]=st[j] then 
count:=1;
if count=1
thenwriteln('Yes')
else
writeln('No');
end.