Текстовые файлы

[_Smoke_]

Тема Текстовые файлы.
Задача на языке Паскаль.

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

[Stilet]

Ну и в чем помехи?

[_Smoke_]

Вот прога на текстовый файл она не до конца доработана, в ней выводится русские буквы а как сделать чтобы они по алфавиту выводилис.Помогите если знаете.

program tekst;
uses crt;
var f:text;
    A:array [1..100] of string;
    B:array [1..4] of byte;
    S,q:string;
    i,k,l,W,n:integer;
    g:byte;
Procedure Vvod;
    Begin
         Assign(f,'Text.txt');
         Rewrite(f);
         Write('Введите кол-во строк =>');
         Readln(n);
         Writeln;
         For i:=1 to n do
             begin
                  Writeln('Введите ',i,'-ою строку');
                  Readln(a[i]);
                  Writeln('---------------------------------------------------------');
                  Writeln(f,a[i]);
             end;
         Close(f);
         Writeln;
         Writeln('Текст записан в файл !!! Нажмите "Enter" чтобы выйти');
         Readln;
         ClrScr;
    End;
Procedure Vivod;
    Begin
         Assign(f,'Text.txt');
         Reset(f);
         Writeln('Ваш текст:');
         Writeln;
         i:=0;
         While not eof(f) do
               begin
                    i:=i+1;
                    Readln(f,a[i]);
                    Write(' ',a[i]);
               end;
         n:=i;
         Writeln;
         Close(f);
         Writeln('Текст записан в файл !!! Нажмите "Enter" чтобы выйти');
         Readln;
         ClrScr;
    End;

    Procedure Zadanie;
    Begin
         Assign(f,'Text.txt');
         Reset(f);
         Writeln('Ваш текст:');
         i:=0;
         While not eof(f) do
               begin
                    i:=i+1;
                    Readln(f,a[i]);
                    Write(' ',a[i]);
               end;
         n:=i;
         Close(f);
         Writeln;
         Writeln;
         l:=0;    {Кол-во рус.букв в тексте}
         S:='';
         For i:=1 to N do
             S:=S+a[i];
               For i:=1 to Length(S) do
          if s[i] in ['А'..'Я','а'..'я'] then
          write(' ',s[i]);
         Writeln;
         Writeln('Текст записан в файл !!! Нажмите "Enter" чтобы выйти');
         Readln;
         ClrScr;
    End;


begin {osnovnaya proga}
clrscr;
w:=0;
while w<4 do
  begin
   writeln;
   writeln('Menu Programmi');
   writeln('1:Vvod dannih');
   writeln('2:Vivod dannih');
   writeln('3:Zadanie');
   writeln('4:Vihod');
   readln(w);
  case w of
  1:vvod;
  2:vivod;
  3:zadanie;
end;
end;
readln
end.