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

Var s: string;
i, j, k: integer;
a: array [1..256] of char;
begin
readln(s);
for i:= 1 to length(s) do begin
    for j:= 1 to k do
        if a[j] = s[i] then begin
           writeln('Есть');
           exit;
           end;
    a[i]:= s[i];
    inc(k);
    end;
writeln('Нет');
end.
Попрошу отметить, как наихорошее решение