Как исправить?? Дана целочисленная матрица (6,9) Найти матрицу, получающуюся из данной перестановкой столбцов - первого с последним, второго с предпоследним и т.д.

const n=6; m=9; var  a:array[1..n,1..m] of integer; x:integer; begin Randomize; writeln('Исходный массив:'); for var i:=1 to n do  begin  for var j:=1 to m do   begin    a[i,j]:=random(100);    write(a[i,j]:4);   end;   writeln;  end; for var i:=1 to n do  for var j:=1 to m div 2 do   begin    x:=a[i,j]; a[i,j]:=a[i,m-j+1]; a[i,m-j+1]:=x;   end; writeln('Полученный массив:'); for var i:=1 to n do  begin  for var j:=1 to m do write(a[i,j]:4);  writeln;  end; end. Пример: Исходный массив:   96  78  14  96  32  17   7  21  13   83  27  68  66  34  17  98  15  67   70  22  32  80  75  46  92   0  70   62  37  65  39  29  55  94  12  48   86   1  11  12  81  48  58  71  87   42  67  51  31  70  42  52  17   0 Полученный массив:   13  21   7  17  32  96  14  78  96   67  15  98  17  34  66  68  27  83   70   0  92  46  75  80  32  22  70   48  12  94  55  29  39  65  37  62   87  71  58  48  81  12  11   1  86    0  17  52  42  70  31  51  67  42