Сортировка Пузырьком двумерного массива

uses crt;
type 
    mas = array [1..10000, 1..10000] of integer;
var
    arr : mas;
    n,m,i,j : integer;
 
procedure sort (q : mas);
var a,b,c,d,x : integer;
begin
  for a := 1 to n do
    for c := n downto a do
      for b := 1 to m do
        for d := m downto b  do
        if (q[a,b] <= q[c,d]) then
        begin
        x := q[a,b];
        q[a,b] := q[c,d];
        q[c,d] := x;
        end;
end;
 
BEGIN
  clrscr;
  write('Write N, M = ');
  readln(n,m);
  writeln('Input matrix:');
  for i := 1 to n do
    for j := 1 to m do
    read(arr[i,j]);
  writeln('Output matrix:');
  sort(arr);
  for i := 1 to n do
    begin
    for j :=1 to m do
    write(arr[i,j], ' ');
    writeln;
    end;
END.

uses crt;
const
  R = 5;
  C = 10;
var
  a : array[1 .. R, 1 .. C] of integer;
 
function Col(i : Integer) : Integer;
begin
 Result := Succ(Pred(i) mod C)
end;
function Row(i : Integer) : Integer;
begin
 Result := Succ(Pred(i) div C)
end;
 
var
  i, j : Integer;
  T : Integer;
begin
randomize;
writeln('Исходная матрица');
for i:=1 to r do
 begin
  for j:=1 to c do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:4)
   end;
  writeln
 end;
for i := 1 to R * C do
for j := R * C downto Succ(i) do
if a[Row(j - 1), Col(j - 1)] > a[Row(j), Col(j)] then
 begin
   T := a[Row(j - 1), Col(j - 1)];
   a[Row(j - 1), Col(j - 1)] := a[Row(j), Col(j)];
   a[Row(j), Col(j)] := T;
 end;
writeln('Отсортированная матрица');
for i:=1 to r do
 begin
  for j:=1 to c do
  write(a[i,j]:4);
  writeln
 end;
end.

procedure sort (var q : mas);
var a,b,c,d,x : integer;
begin
  for a := 1 to n do
    for c := n downto a do
      for b := 1 to m do
        for d := m downto b  do
        if (q[a,b] <= q[c,d]) then
        begin
        x := q[a,b];
        q[a,b] := q[c,d];
        q[c,d] := x;
        end;
end;

mas = array [1..10000, 1..10000] of integer;

if (q[a,b] <= q[c,d]) then