Developing.ru

дан файл-словарь, содержащий слова из исходного файла в алфавитном порядке. Если слова в тексте повторяются несколько раз, то в словарь его записать только один раз.
может я чего не понимаю... я составила задачу, но, видимо, это лишь малость того, что нужно.
задачу надо написать со списками. т.е.(как я поняла) все эти файлы,слова нужно написать через список.

var f: text;
i,j,k: byte;
st: array [1..255] of string;
r: array [1..255] of boolean;
{работаем с файлом: открываем, читаем, смотрим и тд}
begin
assign(f,'tmp.txt');
reset(f);
repeat
inc(i);
readln(f,st);
until eof(f);
{далее ищем повторяющиеся слова и удаляем, оставляя только одно}
for j:=1 to i-1 do
for k:=j+1 to i do
if st[k]=st[j] then begin
r[k]:=true;
end;
close(f);
rewrite(f);
for i:=1 to i do
if (st<>' ') and (r=false) then writeln(f,st);
close(f);
end.