поиск слов по критериям(нужна помощь..срочно)

[clabnk]

помогите написать программу , которая ищет слова в тексте длинной больше 10 символов ,в которых ниодна буква не повторяется...

[Gladiator]

на каком языке??

[clabnk]

программа нужна написаная на Delphi

[Gladiator]

ща попробую

[Gladiator]

создаешь 2 Richedita(в 1й пишешь текст во второй выводятся слова) и Button в нем пишеш...

procedure TForm1.Button1Click(Sender: TObject);

var f,slovo,b:string;
    kolb,i,j,k,d,sc_povt:integer;
begin
f:=RichEdit1.Text;
d:=length(f);
for i:=1 to d do begin
if f[i]=' ' then begin
if kolb>10 then begin
for j:=1 to kolb do begin
b:=slovo[j];
for k:=(j+1) to kolb do
if b=slovo[k] then
sc_povt:=1;
end;
if sc_povt=0 then
RichEdit2.Lines.Add(slovo+' ');
kolb:=0;
sc_povt:=0;
slovo:='';
end;
end
else begin
kolb:=kolb+1;
slovo:=slovo+f[i];
end;
end;
if f[i]<>' ' then begin
if kolb>10 then begin
for j:=1 to kolb do begin
b:=slovo[j];
for k:=(j+1) to kolb do
if b=slovo[k] then
sc_povt:=1;
end;
if sc_povt=0 then
RichEdit2.Lines.Add(slovo+' ');
end;
end;
end;

[clabnk]

как сделать что бы считывались слова на русском?работает только с английским.

[Gladiator]

у меня и с русскими это работает