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

[JiLiYa]

Не могу разобраться, как работать во-первых,с русскими буквами, а во вторых - воообще с алфавитом.
Создать массив типа char? или как? Подскажите кто может....

Program ALFAVIT;
uses crt;
var slova:array[1..50]of string;
F:text;
i:integer;
c:char;

Put:string;
begin
clrscr;
Writeln('Vvedite puti k faylu');
readln(Put);
Assign(F,Put);
reset(F);
i:=1;
While Not EOF(F) do
begin
readln(F,slova[i]);

вот как-то так начало,а что дальше?Заранее спасибо всем...

[alex_fcsm]

Если слова записаны построчно

Program ALFAVIT;
uses crt;
var slova:array[1..50]of string;
temp:string;
F:text;
i,j,n:integer;


begin
clrscr;
Assign(F,'c:\1.txt');
reset(F);
n:=0;
While Not EOF(F) do
begin
inc(n);
readln(F,slova[n]);
end;
close(f);
 for i:=2 to n do
  for j:=n downto i do
   if slova[j]<slova[j-1] then begin
                       temp:=slova[j];
                       slova[j]:=slova[j-1];
                       slova[j-1]:=temp;
                       end;
Assign(F,'c:\2.txt');
rewrite(F);
for i:=1 to n do
 writeln(f,slova[i]);
 close(f);
end.

[JiLiYa]

Большое вам спасибо)
Только не совсем поняла что-то,как он алфавитный порядок сам найдет...или что-то просмотрела?

[alex_fcsm]

Сортировка по возрастанию - и есть алфавитный порядок