Поменять местами в матрице четные и нечетные элементы

var
  a: array[1..6, 1..8] of integer;
  i, j: integer;
  n, m: integer;
  min,sum ,buf: integer;
 
begin
  randomize;
  for i := 1 to 6 do
    for j := 1 to 8 do a[i, j] := random(101) - 25;
  writeln('Исходная матрица: ');
  for i := 1 to 6 do 
  begin
    for j := 1 to 8 do write(a[i, j]:5);
    writeln;
  end;
  //Перестановка
  for i:=1 to 6 do 
  if i mod 2<>0 then begin
      for j:=1 to 8 do begin
        buf:=a[i,j];
        a[i,j]:=a[i+1,j];
        a[i+1,j]:=buf;
     end;
   end;
  writeln('Переформированная матрица: ');
  for i := 1 to 6 do 
  begin
    for j := 1 to 8 do write(a[i, j]:5);
    writeln;
  end;  
  //Поиск минимума по модулю и суммы
  min:=a[1,1];
  for i:=1 to 6 do
    for j:=1 to 8 do
      if abs(a[i,j])<abs(min) then begin
        min:=a[i,j];
        n:=i; m:=j;
      end;
  writeln('Min=',min);
  sum:=sum+a[n-1,m]+a[n+1,m]+a[n,m-1]+a[n,m+1]+a[n+1,m-1]+a[n+1,m+1]+a[n-1,m-1]+a[n-1,m+1];
  writeln('Sum=',sum);
end.

sum:=sum+a[n-1,m]+a[n+1,m]+a[n,m-1]+a[n,m+1]+a[n+1,m-1]+a[n+1,m+1]+a[n-1,m-1]+a[n-1,m+1];