Вводится слово из 4 букв. определить, есть ли в нем одинаковые буквы. в программе паскаль !

Var s:string;
i,j,d,k:integer;
begin
readln(s);
d:=length(s);
k:=(-1)*d;
for i:=1 to d do
for j:=1 to d do
if s[i]=s[j] then k:=k+1;
if k=0 then writeln('нет') else writeln('есть');
end.