составьте программу, проверяющую, есть ли в слове X повторяющиеся буквы

program al;var s:string;i:integer;beginwriteln('vvedite slovo ');readln(s);for i := 1 to length(s) doif s[i]=s[1] then writeln(' v slove esti povtoriaiusciesia bukvi')else writeln(  ' v slove net povtoriaiusciehsia bukv ' );readln;end.