[Delphi] sortowanie

mam takie dane
type dane=record
ksywa:string[40];
stan:byte;
end;

dane_all:array[1..10] of dane;

mam załużmy 10 takich pozycji .Jak je posortować względem ksywy(czyli według alfabetu) i wzgl stanu. wegług pierwszego i drugiego razem a nie osobno. im mniejsza liczba okreslajaca stan tym wyżej w tablicy bedzie dana pozycja z danymi.

PLEASE HELP ME ;-(

Najprostrze algorytmy zachowujące kolejność to m. in. bąbelkowe i przez wstawianie (nie można użyć quicksorta).
Posortuj najpierw ze względu na stan, a potem ze względu na xywkę i będzie wszystko ok (od razu mówię, że to nie jest wcale najoptymalniejszy sposób, ale na pewno najprostrzy).