Разработать программу , которая в матрицах A, B и C позволяет переставить элементы главной диагонали в обратном порядке

const x=-10; y=21; W=4;
type TIntegers = array [0..$FFFE div SizeOf(Integer)-1] of Integer;
procedure mRev(var a; n: Integer);
var i, j, t: Integer; v: TIntegers absolute a;
begin
  i:=0; j:=Sqr(n)-1;
  while i<j do begin
    t:=v[i]; v[i]:=v[j]; v[j]:=t; Inc(i,n+1); Dec(j,n+1);
  end;
end;
function mOddCnt(const a; n: Integer): Integer;
var r, i: Integer; v: TIntegers absolute a;
begin
  r:=0; for i:=0 to Sqr(n)-1 do Inc(r,Ord(Odd(v[i])));
  mOddCnt:=r;
end;
procedure mWrite(var a; n: Integer);
var i, j: Integer; v: TIntegers absolute a;
begin
  for i:=0 to n-1 do begin
    for j:=0 to n-1 do Write(v[i*n+j]:W); WriteLn;
  end;
end;
procedure mGen(var a; n, b, c: Integer);
var i, j: Integer; v: TIntegers absolute a;
begin
  for i:=0 to n-1 do for j:=0 to n-1 do v[i*n+j]:=b+Random(c);
end;
var
  a: array [1..4,1..4] of Integer;
  b: array [1..5,1..5] of Integer;
  c: array [1..6,1..6] of Integer;
  t, r: Real;
begin
  Randomize;
  mGen(a,High(a),x,y); mGen(b,High(b),x,y); mGen(c,High(c),x,y);
  WriteLn('A ='); mWrite(a,High(a));
  WriteLn('B ='); mWrite(b,High(b));
  WriteLn('C ='); mWrite(c,High(c));
  mRev(a,High(a)); mRev(b,High(b)); mRev(c,High(c));
  WriteLn('A''='); mWrite(a,High(a));
  WriteLn('B''='); mWrite(b,High(b));
  WriteLn('C''='); mWrite(c,High(c));
  t:=mOddCnt(a,High(a)); r:=mOddCnt(b,High(b));
  WriteLn('y = ',t*SqRt(r)-2*mOddCnt(c,High(c))/Abs(100-2*t*r));
end.