Поменять в матрице местами первый и последний элементы, второй и предпоследний

type
matrix=array[1..10,1..10] of integer;
var
a:matrix;
i,j:integer;
n,m:integer;
begin
writeln('введите размеры матрицы n и m');
write('n=');
read(n);
write('m=');
read(m);
{ Ввод матрицы a}
writeln('введите построчно матрицу a');
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
{ Вывод матрицы a}
writeln('Исходная матрица a');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3,' ');
writeln;
end;
 
end.

const nn=10;mm=10;
type mas=array[1..nn,1..mm] of real;
var n,m:integer;
    a:mas;
procedure kss(var st:integer;s:string;f:boolean);
var nm:integer;
begin
 if f then nm:=nn else nm:=mm;
 repeat
  write('количество ',s,' >0 и <=',nm,': ');readln(st)
 until (st>0)and(st<nm) 
end;
procedure inp(var x:mas);
var i,j:integer;
begin
 for i:=1 to n do
  for j:=1 to m do x[i,j]:=-5+10*random
end;
procedure outp(x:mas;s:string);
var i,j:integer;
begin
 writeln(s);
 for i:=1 to n do
  begin
   for j:=1 to m do write(x[i,j]:7:2);
   writeln
  end; 
end;
procedure zam(var x:mas);
var i,j:integer;tmp:real;
begin
 for j:=1 to m do
  for i:=1 to n div 2 do
   begin
    tmp:=a[i,j];
    a[i,j]:=a[n-i+1,j];
    a[n-i+1,j]:=tmp
   end 
end;
begin
 kss(n,'строк',true);
 kss(m,'столбцов',false);
 inp(a);
 outp(a,'A:');
 zam(a);
 outp(a,'A'':')
end.