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

var i,j,count: integer;st:string;beginreadln(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')elsewriteln('No');end.