Отсортировать строки по алфавиту. Как? Опции

[Child of Bodom]

Привет всем. я тут новичок. И мне очнеь срочно нужна ваша помощь. Помогите очень прошу. Задача такова:
В текстовой файле 5-8 строк. Мне надо отсортировать их по алфавиту. То есть строки надо отсортировать по фамилиям , находящимсяпрямо в начале всех строк. Вывести на экран это получается , а вот с процедурой сортировки что то совсем никак!!! помогите а то отсался последний зачет получить а тут такая вот чтука. В FAQе уже не однократно был -но там же ничего не понятно. Вот примерно что у меня получилось

Program Zadanie_3;
uses crt;
var f,g:text;
    str:array [1..5] of string;
procedure vivod (var f:text);
var i:integer;
    begin
    reset(f);
     i:=1;
          while not eof(f) do
                begin
                readln(f,str[i]);
                writeln(str[i]);
                i:=i+1;
                end;

end;
procedure alfavit;
var x: string;
    i,j: integer;
    str:array [1..5] of string;

begin
    reset(f);
    rewrite(g); 
     i:=1;
     for i:=1 to 5 do
     begin
     for j:=5 downto 1 do
     begin
          if str[i+1]>str[i] then
             begin
             x:=str[i];
             str[i]:=str[i+1];
             str[i+1]:=x;
             writeln (str[i]);
             end;
     end;
     end;
 
    erase(f);
     rename(g,'temp.txt');
     reset(f);
     close(g); 
end;

BEGIN
clrscr;
assign (f,'BOLNICTA.txt');
assign (g,'temp.txt');
vivod(f);
readln;
clrscr;
alfavit;
readln;
end.

Текстовый файлик вкладываю:

Сообщение отредактировано: volvo - 25.12.2006 14:44