Сортировка двусвязного списка.

[Ninna]

Имеется конкретный двусвязный список. фио,отдел,год и.т.д.

type


Pperson=^person;
person=record
fio,obr,otd,dol:string;
dat,god:integer;
next,preperson;
end;

Как организовать процедуру сортировки по алфавиту по fio? Проблема в том, что список двунаправленный(

все перепробывала(

PHP код:

Procedure sort;
var tmp1,tmps:pperson;
begin
    name:='Sortirovka po fio'; {строка с текстом}
    nada:='Press any key';  {строка с текстом}
    okno2;   { процедура вывода списка на   экран}
    New(tmp1);
    New(tmps);
    CurrentRec:=beglist;
    while CurrentRec<>nil do
        begin
            tmp1:=CurrentRec^.next;
            while tmp1<>nil do
                begin
                    if tmp1^.FIO<CurrentRec^.FIO then
                        begin
                            tmps:=CurrentRec;
                            CurrentREc:=CurrentRec^.next;
                            CurrentRec^.next:=tmps;
                        end;
                   tmp1:=tmp1^.next;
               end;
        CurrentRec:=CurrentRec^.next;
       end;
    name:='1111111111111';
    nada:='Press any key';
    okno2;
    readkey;
end;