написать программу, которая в массиве случйных чисел С[1..5,1..5] меняет местами значения элементов главной и вспомогательнй диагонали

uses crt;

var C:array[1..5,1..5] of integer;

i,j,temp:integer;

begin

   randomize();

   for i:=1 to 5 do

      for j:=1 to 5 do

         C[i,j]:=random(1000);

   for i:=1 to 5 do begin

      t:=C[i,i];

      C[i,i]:=C[i,6-i];

      C[i,6-i]:=t;

   end

end.

program pr;uses crt;Var i,j,b:integer;C:array[1..5, 1..5] of integer;Beginfor i:=1 to 5 do BeginWriteln;    for j:=1 to 5 do Begin C[i,j]:=random(100); Write(C[i,j],'|');  end;     end;for i:=1 to 5 do     Begin           b:=C[i,i];           C[i,i]:=C[i,6-i];           C[i,6-i]:=b;      end;Writeln;      for i:=1 to 5 do BeginWriteln;    for j:=1 to 5 do  Write(C[i,j],'|');     end;      readln;end.