Для заданной квадратной матрицы порядка n поменять местами элементы главной и побочной диагоналей

min:=a[1];
imin:=1;
for i:=1 to n do
 if a[i]<min then
  begin
   min:=a[i];
   imin:=i;
  end;

Readln(t);
s:=0;
for i:=1 to n do
 if a[i]>t then
  s:=s+a[i];

for i:=1 to n do
 if i mod 2<>0 then
  begin
   k:=k+1;
   x:=a[i];
   for j:=i downto k+1 do
   a[i]:=a[j-1];
   a[k]:=x;
  end;

uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
    i,j,sum,x:integer;
begin
ClrScr;
Randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20)-10;
    Write(a[i,j]:4);
   end;
  Writeln;
 end;
Writeln;
for i:=1 to n do
begin
  x:=a[i,i];
  a[i,i]:=a[i,(n+1-i)];
  a[i,(n+1-i)]:=x;
end;
for i:=1 to n do
 begin
  for j:=1 to n do
   Write(a[i,j]:4);
  Writeln;
 end;
sum:=0;
for i:=1 to n do
 for j:=1 to n do
  if i mod 2=0 then
   begin
    if (n-j+1<i) then
     sum:=sum+a[i,j];
   end;
Writeln('Sum=',sum);
Readln;
end.