Упорядочить по возрастанию все строки двухмерного массива, не упорядоченные по убыванию

type mas=array[1..10]of integer;
     mtr=array[1..10]of mas;
function check(a:mas;n:integer):integer;
var i,kv,ku:integer;
begin
kv:=1;
ku:=1;
for i:=2 to n do
if a[i]>a[i-1] then inc(kv)
else if a[i]<a[i-1] then inc(ku);
if kv=n then check:=1
else if ku=n then check:=2
else check:=0;
end;
procedure sort(var a:mas;n:integer);
var i,j,x:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
end;
var a:mtr;
    m,n,i,j:integer;
begin
repeat
writeln('Введите размеры массива от 2 до 10');
readln(m,n);
until(m in [2..10])and(n in [2..10]);
writeln('Введите элементы массива посторочно, в том числе строки упорядоченные по убыванию');
for i:=1 to m do
 begin
  writeln('Строка ',i);
  for j:=1 to n do
   begin
    write('a[',i,',',j,']=');
    readln(a[i][j]);
   end;
 end;
writeln('Исходный массив');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i][j]:5);
  writeln;
 end;
for i:=1 to m do
if check(a[i],n)<>2 then sort(a[i],n);
writeln('Сортировка строк не упорядоченных по убыванию');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i][j]:5);
  writeln;
 end;
end.