Двумерный массив

[hidalgo]

Подскажите где ошибка?
создаю матрицу, и нужно с помощу QuickSort, ее отсортировать по строкам, то есть всю матрицу от верхнего угла A[1,1] к нижнему углу A[n,m].
ошибка в том что матрица создается и на этом все заканчивается. зависает программа

const
  n = 3;
  m = 3;
 
var
  a: array [1..n, 1..m] of integer;
 
procedure QSort(U, L, D, R : integer) ;
var
  i, j: integer;
  i1, j1, i2, j2: integer;
  x, B: integer;
begin
  {procedure}
  x := A[(U + D) div 2, (L + R) div 2];
  i1 := U;
  j1 := L;
  i2 := D;
  j2 := R;
  
  repeat   
    while A[i1, j1] < x do
    begin 
    inc(i1);
    if (i1 mod m = 0) then begin
      i1 := 1;
      inc(j1);
    end;
    end;
    
    while A[i2, j2] > x do
    begin
    dec(j2);
    if (j2 mod n = 0) then begin
      j2 := 1;
      dec(i2);
    end;
    end;
    
    
    if (i1 * m + j1 <= i2 * m + j2) then begin
      B := A[i1, j1];
      A[i1, j1] := A[i2, j2];
      A[i2, j2] := B;
      if (j1 mod m = 0) then begin
        j1 := 1;
        inc(i);
      end
      else j1 := j1 + 1;
      if (j2 = 1) then begin
        j2 := m;
        i2 := i2 - 1;
      end
      else j2 := j2 - 1;
    end;
  until (i1 * m + j1) <= (i2 * m + j2);
  
  if (U * m + L) < (i2 * m + j2) then QSort(U, L, i2, j2);
  if (i1 * m + j1) < (D * m + R) then QSort(i1, j1, D, R);    
  {end}
end;
 
var
  i, j: integer;
 
begin
  {main beg}
  randomize; 
  writeln('Исходная матрица');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      A[i, j] := random(80) - 25;
      write(a[i, j]:7);
    end;
    writeln;
  end;
  
  QSort(1, 1, n, m);
  
  writeln('Преобразованная матрица');
  for i := 1 to n do
  begin
    for j := 1 to m do write(a[i, j]:7);
    writeln;
  end;
  {main end}
end.

[Don Karleone]

Не могу понять, что значит отсортировать по строкам?