на строки

[FROST306]

Из имеющегося словаря выбрать наиболее длинное слово, в котором все буквы разные, например: ЛЕЙКОПЛАСТЫРЬ, НЕРЯШЛИВОСТЬ, ЧЕТЫРЁХДЮЙМОВКА.

[denisbrain]

{функция возвращает максимальное кол-во совпадений символов в строке}
function GetDubleSymbol(S:String):integer;
var x,y:integer;
    max,count:integer;
begin
  max:=0;
  for x:=1 to length(s) do begin
   count:=0;
     for y:=1 to x-1 do if s[x]=s[y] then count:=count+1;
     if max<count then max:=count;
  end;
  result:=max+1;
end;

ЛЕЙКОПЛАСТЫРЬ = 2
НЕРЯШЛИВОСТЬ = 1
ЧЕТЫРЁХДЮЙМОВКА = 1

[FROST306]

Cпасибо!!! выручил!!!