Перестроить строки матрицы так, чтобы они были расположены по возрастанию в лексикографическом порядке

const
  n=5;
  m=6;
var
  mas:array[1..n,1..m] of integer;
  a:integer;
  j,k,i:byte;
 
begin
randomize;
for j:=1 to m do
for i:=1 to n do
mas[i,j]:=random(10);
 
Writeln('Начальный массив');
 
for j:=1 to m do
begin
for i:=1 to n do
write(mas[i,j],' ');
writeln;
end;
 
 
for j:=1 to m do
begin
for k:=1 to n do
for i:=1 to n-1 do
if mas[i,j]>mas[i+1,j] then
begin
a:=mas[i,j];
mas[i,j]:=mas[i+1,j];
mas[i+1,j]:=a
end;
end;
 
 
Writeln('Новый массив');
 
for j:=1 to m do
begin
for i:=1 to n do
write(mas[i,j],' ');
writeln;
end;
readln;
readln;
end.

const n = 15; m = 4;
type Tmatrix = array[1..n,1..m] of integer;
 
{glavnaya rekursivnaya procedura}
procedure lexMatr(var a_Matr: Tmatrix; stb,nach,kon:byte);
var i,d:byte;
{procedura sortirovki v intervale strok}
procedure Sort(var a_Matr:Tmatrix; stb,perv,posl:byte);
var     i,j,k :byte;
        t :integer;
begin
    for k:=1 to posl-1 do {внешний счётчик}
        for i:=perv to posl-k do
            if a_Matr[i,stb]>a_Matr[i+1,stb] then
                                for j:=1 to m do begin
                                        t:=a_Matr[i,j];
                                        a_Matr[i,j]:=a_Matr[i+1,j];
                            a_Matr[i+1,j]:=t;
                                end;
end;
begin
        Sort(a_Matr,stb,nach,kon);
        i:=nach;
        while (i<kon) and (stb<m)do
        if a_Matr[i,stb]=a_Matr[i+1,stb] then begin
            d:=i;
        while (i<kon)and(a_Matr[i,stb]=a_Matr[i+1,stb]) do Inc(i);
                lexMatr(a_Matr,stb+1,d,i);
        end else Inc(i);
end;
{_-^-_-^-_-^-_-^-_-^-_-^-_}
var i,j:byte;
    a:Tmatrix;
BEGIN
{sozdat' sluchainuyu matricu}
randomize;
for i:=1 to n do begin
    for j:=1 to m do begin
        a[i,j]:=random(10);
        write(a[i,j]:3);
    end;
    writeln;
end;
writeln;
i:=1; j:=1;
lexMatr(a,j,i,n);
{vyvod na ekran}
for i:=1 to n do begin
    for j:=1 to m do
        write(a[i,j]:3);
    writeln;
end;
 
END.

const   n = 5;
        l = 4;
var     i :integer;
        name :array[1..n,1..l] of char;
procedure Sort;
var     stroka :array[1..l] of char;
        pr :boolean;
        j :integer;
begin
        pr:=true;
        while pr do begin
                pr:=false;
                for j:=1 to N-1 do
                    if name[j]>name[j+1] then
                        begin
                            stroka:=name[j];
                            name[j]:=name[j+1];
                            name[j+1]:=stroka;
                            pr:=true
                        end
        end
end;
BEGIN
        writeln('vvedite stroki matritsy: ');
{        readln;}
        for i:=1 to n do readln(name[i]);
        SORT;
        writeln('uporyadochenno: ');
        for i:=1 to n do writeln(name[i])
end.