Сортировка массива по двум ключам

[NadY]

Создать текстовый файл на основе таблицы с полями (код товара - наименование - количество - цена - ФИО покупателя). Отсортировать по ключам: наименование (naim) и цена (cena). Методы сортировки: простой выбор, метод Шелла

Программа работает полностью, но только для одного ключа, не могу пристроить второй. ПомогитЕ

{сортировка простым выбором}
for i:=1 to n-1 do
begin
imin:=i;
for j:= i+1 to n do
if (a^[j].naim<a^[imin].naim) then imin:=j;
s:=a^[imin];
a^[imin]:=a^;
a^:=s;
end;

{метод Шелла}
d:=n div 2;
while d>0 do begin
k:=true;
while k do begin
k:=false;
i:=1;
for i:=1 to n-d do
begin
if a^.naim>a^[i+d].naim then
begin
s:=a^;
a^:=a^[i+d];
a^[i+d]:=s;
k:=true;
end;

[NadY]

Дошло, все легко и просто!
Всем спасибо!