МАССИВЫ: расположить все элементы матрицы в строку в порядке убывания - Pascal ABC

Формулировка задачи:

Не могу понять в чем же ошибка

program m620;
type mass=array[1..3,1..4] of integer;
var m:mass;
    i,j,x,ii,jj:integer;
begin
     for i:=1 to 3 do
     for j:=1 to 4 do
     begin
          writeln('Введите элемент m[',i,',',j,']');
          readln(m[i,j]);
     end;
     for i:=1 to 3 do
     begin
          writeln();
     for j:=1 to 4 do
     write(m[i,j],' ');
     end;  
     for i:=1 to 3-1 do
     for j:=1 to 4-1 do
     for ii:=i+1 to 3 do
     for jj:=j+1 to 4 do
     if m[i,j]

Ответ выдает такой(некоторые цифры все же не пошли по убыванию:

		

Решение задачи: «МАССИВЫ: расположить все элементы матрицы в строку в порядке убывания»

Листинг программы

const m=3;
      n=4;
var a:array[1..m,1..n] of integer;
    i,j,k:byte;
    x:integer;
begin
randomize;
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-10+random(21);
    write(a[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to m*n-1 do
for j:=i+1 to m*n do
if a[(i-1)div n+1,(i-1)mod n+1]>a[(j-1)div n+1,(j-1)mod n+1]
then
 begin
  x:=a[(i-1)div n+1,(i-1)mod n+1];
  a[(i-1)div n+1,(i-1)mod n+1]:=a[(j-1)div n+1,(j-1)mod n+1];
  a[(j-1)div n+1,(j-1)mod n+1]:=x;
 end;
writeln('Отсортированная матрица в строку:');
for i:=1 to m do
for j:=1 to n do
write(a[i,j]:4);
end.

Объяснение кода листинга программы

Объявляются переменные: m, n, a, i, j, k, x (массив, индексы, число).
Задаются начальные значения матрицы a с помощью цикла randomize и random(21).
Выводится исходная матрица с помощью цикла writeln.
Сортировка матрицы по первому столбцу с помощью двух вложенных циклов for и условного оператора if.
Задается значение переменной x и происходит обмен значениями между элементами матрицы a.
Выводится отсортированная матрица в строку с помощью двух вложенных циклов for и функции writeln.
Код завершается командой end.