что-то не то

[VIKA1829]

{Пусть дан текст, заканчивающийся точкой. Текст состоит из слов, разделённых пробелами.
Слово - последовательность латинских букв. Напечатайте слова текста, имеющие
нечетный номер, в которых нет ни одной повторяющейся буквы.}
program page102num53;

{$APPTYPE CONSOLE}
uses
SysUtils,
windows;

const n_max=1000; {макс длина текста}
eot='.';
type litters = set of 'a'..'z'; {тип множества лат букв}
var txt:array [1..n_max] of char; {текст}
m:litters; s:string; i,n:integer; f:boolean; c:char;

procedure read_text;
var i:integer;
begin
Writeln ('Введите текст: ');
i:=0;
repeat
repeat
i:=i+1;
read(txt[i]);
until eoln or (i=n_max) or (txt[i]=eot);
readln;
until (i=n_max) or (txt[i]=eot);
if txt[i]=eot then n:=i-1
else n:=i;
end;

procedure find;
var i:integer;
begin
i:=1;
repeat
s:=''; m:=[]; f:=false ;
repeat
f:=txt[i] in m;
m:=m+[txt[i]]; s:=s+txt[i];
until (txt[i]=' ') or f or (txt[i]='.');
if not f and odd(i) then write(s);
i:=i+1
until txt[i]='.';
readln;
end;
begin
{обращение к русскому языку}
setconsoleCp(1251);
setconsoleOutputCp(1251);
read_text;
find;
readln;
end.
НЕ ДОДЕЛАНО...КАК ДОДЕЛАТЬ НЕ ЗНАЮ