Упорядочить матрицу по неубыванию элементов первой строки (гномья сортировка)

##
  'Исходный массив:'.PrintLn;
  var a := MatrRandomInteger(5, 4, -99, 99).PrintLn;
  var i := 0;
  repeat
    if a[0,i] <= a[0,i+1] then inc(i)
    else
      begin
        a.SwapCols(i, i+1);
        if i > 0 then dec(i)
      end
  until i = a.ColCount - 1;
  'Отсортированный массив:'.PrintLn;
  a.PrintLn

const m=5; n=4; W=5;
var
  i, j, t: Integer;
  a: array [0..m-1,0..n-1] of Integer;
begin
  Randomize;
  for i:=0 to m-1 do for j:=0 to n-1 do a[i,j]:=-99+Random(199);
  WriteLn('A =');
  for i:=0 to m-1 do begin
    for j:=0 to n-1 do Write(a[i,j]:W); WriteLn;
  end;
  j:=0;
  repeat
    if a[0,j]<=a[0,j+1] then
      Inc(j)
    else begin
      for i:=0 to m-1 do begin
        t:=a[i,j]; a[i,j]:=a[i,j+1]; a[i,j+1]:=t;
      end;
      if j>0 then Dec(j);
    end;
  until j=n-1;
  WriteLn('A''=');
  for i:=0 to m-1 do begin
    for j:=0 to n-1 do Write(a[i,j]:W); WriteLn;
  end;
end.

const
  m = 5;
  n = 4;
var
  a: array[1..m, 1..n] of integer;
  i, j, t: integer;
begin
  randomize;
  writeln('Исходный массив:');
  for i := 1 to m do
    begin
      for j := 1 to n do
        begin
          a[i,j] := -99 + random(199);
          write(a[i,j]:4)
        end;
      writeln
    end;
  j := 1;
  repeat
    if a[1,j] <= a[1,j+1] then inc(j)
    else
      begin
        for i := 1 to n do
          begin
            t := a[i,j];
            a[i,j] := a[i,j+1];
            a[i,j+1] := t
          end;
        if j > 1 then dec(j)
      end
  until j = n;
  writeln('Отсортированный массив:');
  for i := 1 to m do
    begin
      for j := 1 to n do write(a[i,j]:4);
      writeln
    end;
  readln
end.