Дана матрица M<=N. Зеркально отразить её элементы относительно вертикальной оси симметрии матрицы (при этом поменяются местами столбцы с номерами 1 и N, 2 и N-1 и т.д.) - Pascal(Паскаль)

type arr=array [1..100] of real;
var  A:array [1..100] of arr;
     i,j,m,n:integer;
     vspomog:real;    
     
begin
writeln('Введите размер матрицы (MxN)');
readln(m,n);
writeln('Введите элементы матрицы' );
For i:=1 to m do
  For j:=1 to n do
    read(A[i,j]);
writeln('Исходная матрица');    
For i:=1 to m do
  begin
  For j:=1 to n do
    write(A[i,j]:5:4,' ');
  writeln;  
  end;   
 
For j:=1 to (n div 2) do
  For i:=1 to m do
    begin
    vspomog:=A[i,j];
    A[i,j]:=A[i,n-j+1];
    A[i,n-j+1]:=vspomog; 
    end;
writeln('Результирующая  матрица');    
For i:=1 to m do
  begin
  For j:=1 to n do
    write(A[i,j]:5:4,' ');
  writeln;  
  end;   
end.