Отсортировать по убыванию элементы 5 столбца массива A [10,10]

Вот цикл сортировки: For i:=1 to 9 do begin If A[i,5]End;