Элементы четных строк матрицы записать в обратном порядке

const nmax=7; {чтобы матрица вошла на экран по ширине}
type complex=record
             re,im:real;
             end;
procedure Vyvod(var f:complex);{вывод комплексного числа}
begin
write(f.re:5:1);
if f.im<0 then write(f.im:0:1,'i ')
else write('+',f.im:0:1,'i ');
end;
 
var  a:array[1..nmax,1..nmax] of complex;
     n,i,j:byte;
     x:complex;
begin
randomize;
repeat
write('Размер матрицы от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j].re:=-3+9*random;
    a[i,j].im:=-3+9*random;
    Vyvod(a[i,j]);
   end;
  writeln;
 end;
for i:=1 to n do
if i mod 2=0 then
for j:=1 to n div 2 do
 begin
  x:=a[i,j];
  a[i,j]:=a[i,n-j+1];
  a[i,n-j+1]:=x;
 end;
writeln('Перестановки в четных строках');
for i:=1 to n do
 begin
  for j:=1 to n do
  Vyvod(a[i,j]);
  writeln;
 end;
end.

var k:integer;
    p:real;
begin
p:=1;
for k:=1 to 101 do
p:=p*(2*k/(2*k-1)*2*k/(2*k+1));
write('P=',p)
end.