Как расположить в алфавитном порядке слова,содержащиеся в файле?

[JiLiYa]

Задача: Дан файл, содержащий текст на русском языке. Составить в алфавитном порядке список всех слов, встречающихся в этом тексте.
Так понимаю, этот список надо вывести на экран и сохранить в файле,analis.txt, к примеру.

Вот примерное начало:

var f1,f2: text; name,str: string[80];
begin
write('vvedite imya faila: '); readln(name);
assign(f1,name); assing(f2,'analis.txt');
reset(f1);rewrite(f2);
writeln('nachalo poiska'); writeln(f2,'nachalo poiska');
while not eof(f1) do
begin
readln(f1,str);

А вот как дальше выбирать слова по алфавиту понять не могу,подскажите, please?