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

const n=6; m=9;var a:array[1..n,1..m] of integer;x:integer;beginRandomize;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