Delphi. Вопрос про сортировку массива

Procedure change(g,f:integer); //Процедура обмена
var
x:integer;
begin
x:=g;
g:=f;
f:=x;
end;

procedure sort1(var b:mas1); //Процедура сортировки одномерного массива ( в данной задаче столбца)
var
k,j:integer;
begin
for j:=1 to n-1 do
for k:=1 to n-j-1 do

if b[k+1]<b[k] then
change(b[k+1],b[k]);
end;

procedure Sortirov(var a:mas2);
var
k,x,i,j:integer;
begin
for i:=1 to m-1 do // (m-1)- количество столбцов
sort1(a[i]);//Сортируем i-тый столбец массива
end;

Данные процедуры отлично сортируют массив по столбцам, но можно ли с помощью этих процедур как-нибудь отсортировать массив по строкам?