Подскажыте сортировку

procedure Sort_Text(var TheArr:TOpen;SizeArray:integer;Col:byte);//сортировка буквенных столбцёв
var
    i:integer;
    Temp:MyList;
    flag:boolean;
begin
    flag:=true;
    case Col of
        2:
        begin
            while flag do
            begin
                flag:=false;
                for i:=1 to SizeArray-1 do
                begin
                    if(TheArr^[i].Author[1]>TheArr^[i+1].Author[1])then
                    begin
                        if(TheArr^[i].Author[1]=TheArr^[i+1].Author[1])then
                        begin
                            if(TheArr^[i].Author[2]>TheArr^[i+1].Author[2])then
                            begin
                                Temp:=TheArr^[i];
                                TheArr^[i]:=TheArr^[i+1];
                                TheArr^[i+1]:=Temp;
                                flag:=true;
                            end;
                        end
                        else
                        begin
                            Temp:=TheArr^[i];
                            TheArr^[i]:=TheArr^[i+1];
                            TheArr^[i+1]:=Temp;
                            flag:=true;
                        end;
                    end;
                end;
            end;
        end;
end;
end;