Составьте программу, определяющую, все ли буквы слова Х различны

var
    s,s2:string;{две строки, вторая будет накапливать результат}
    i:byte;{в качестве счётчика}
begin
readln(s);{считали строку}
for i:=1 to length(s) do begin {цикл от 1 до длины строки, в котором если...}
    if (i mod 2 =0)and(s[i]='a') {позиция чётная и равна 'a'(здесь 'a' латинская)}
      then s2:=s2+'e' else s2:=s2+s[i];{Тогда то-то, иначе то-то}
end;{конец списка команд, который попадает под влияние цикла}
writeln(s2);{вывести на экран s2}
readln;{это чтоб экран с результатом сразу не пропадал}
end.

var myCharset : set of char;

var
    mycharset: set of char;
    s:string;
    i,j:byte;
begin
readln(s);
for i:=1 to length(s) do begin
    if s[i] in myCharset then begin
        writeln('neverno!');
        j:=0;
        break;{прерывает цикл for, потому что условие задания уже нарушено}
    end else begin
        j:=1;
        mycharset:=mycharset+[s[i]];
    end;
end;{конец for}
if j=1 then writeln('vse bykvi raznie!');{если бы были повторяющиеся символы
то j было бы равно 0}
readln;
end.