Функция: определить, есть ли в строке слово (набор символов), в котором все символы различны

function razl(s:string):boolean;
var s1:string;
    i,j,k:integer;
    m:set of char;
    f:boolean;
begin
s:=' '+s+' '; //добавим пробелы в начало и в конец для удобства
i:=1;
f:=false;
while (i<length(s))and not f do//идем по строке пока нет нужного слова
if (s[i]<>' ')and(s[i-1]=' ') then //если не пробел, а перед ним пробел, новое слово
 begin
  s1:='';
  j:=i;
  while(j<=length(s))and(s[j]<>' ') do //составим его
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  m:=[];
  k:=0;
  for j:=1 to length(s1) do
   if not(s1[j] in m) then
    begin
     k:=k+1;
     m:=m+[s1[j]];
    end;
  if k=length(s1) then f:=true
  else i:=i+length(s1);//перешагиваем через слово
 end
else i:=i+1; //пропускаем пробелы
razl:=f;
end;
var s,s1:string;
    i,j:integer;
    c:char;
begin
clrscr;
writeln('Введите строку из слов, разделенных пробелами');
readln(s);
if razl(s) then write('В строке есть слово из разных символов')
else write('В строке нет слова из разных символов')
end.